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SECTION 1 
INTRODUCTION 



1-1, SAIL is a high-level programming system for the PDP-10 
computer. It Includes an extended ALGOL compiler and a companion set 
of execution-time routines. The reasonably standard ALGOL 60 
compiler Is extended to provide facilities for describing 
manipulations of an associative data structure, This structure 
contains Information about ITEMS, stored as unordered collections of 
It errs (sets) or as ordered triples of Items (associations), The 
alnebralc capabilities of the language are linked to the associative 
capabilities by means of the DATUM operator, which can associate with 
any ITEM an algebraic datum, 

1-2, Several forerunners (namely the GOGOL compilers developed at 
the Stanford Artificial Intelligence Project) have contributed to the 
general appearance cf the non-associative portions of the SAIL 
language, The associative data structure is a slightly reworked 
version of the LEAP language* which was designed by J» Feldman and 
P, Rovner. and implemented on Lincoln Laboratory's TX-2, This 
language Is described In some detail in a n article entitled "An 
Algol-Based Associative Language" In the August, 1969 Issue of the 
ACM Communications [Feldman], The implementation was modified to 
tolerate the non-paging environment of the PDP-10, 



1-3. 
th I nk 
PDP-10 
hand-c 
I nout/ 
the I 
speedi 
warned 
test I n 
commer 



SAIL in a sense has something for everyone, For those who 

in ALGOL* SAIL has ALGOL, For those who want the most from the 

and the time-sharing system, SAIL allows flexible linking to 

oded machine language programs, For those who have complex 

output requirements, the language provides complete access to 

/Q facilities of the PDP-10 system. For those who aspire to 

SAIL generates fairly good code, The user should, however* be 

that SAIL falls several man-decades short of the extensive 



g and optimization efforts contained In the histories 
c I a I comp I I ers. 



of most 



0, Swinehart 
R, Sprou I I 
November* 1969 
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SECTION 2 
PROGRAMS, BLOCKS, STATEMENTS 



SYNTAX 
2-1. 



<prograrr> 

<block> 

<b I ock_head> 

<compound_ta I I > 



: := <b|ock> 

::= <entry_spec i f I cat i on> <block> 

::= <b I ock_head> i <compound_ta I I > 



= BEGIN <dec larat ion> 

= BEGIN <b|ock_name> <dec I arat I on> 

= <b|ock_head> J <dec I arat i on> 

= <statement> END 

= <statement> END <b I ock_name> 

= <statement> ; <compound„ta I | > 



<statement> 



<cornpound_statement> 



<b|ock> 

<compound„staternent> 
<ass i gnment> 
<condlt!onal,statement> 

< i f _ s t a t e m e n t > 
<go_to_statement> 
<f cr_statement> 
<wh ! I e_statement> 
<do_statement> 
<case_statement> 
<return_statement> 
<done„statement> 
<next_statement> 
<leap_statement> 
<procedure_statement> 
<def lne„speclflcation> 

<str i ng_constant> <statement> 

< labeljdent If |er> ! <statement> 
<empty> 

BEGIN <compound_ta i l> 

BEGIN <b|ock - name> <compound_ta I 
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<block_name> 
<entry„speclflcat|on> 



::= <str I ng„constant> 
::= ENTRY <lcLI lst> 



EXAMPLES 

2-2, 
G I ven J 

S Is a statementi 

Sc Is a Compound Statement, 

D I s a Dec ! arat j on, 

B Is a Slock, 



Then: 



(Sc) BEGIN S; S; S; , . , ; S END 

(Sc) BEGIN "SORT" S; Si ,., ;S END 

(B) BEGIN D; Di D; ... ; S; S; S; .,, ; S END 

(B) BEGIN "ENTER NEW INFO" DJ Dj ,,, j Sj ,,, |S END 

are syntactically valid SAIL constructs, 



SEMANTICS 

Dec I arat I ons 

2-3, SAIL programs 
structure of ALGOL-60, 



are organized In the traditional block 



Declarations serve to define the data types ana dimensions of 

and subscripted (array) variables (arithmetic variables, 

terns). They are also used to describe procedures 

name program labels. The DEFINE construct (see 

USE OF DEFINE, 12-0) may also appear In 



2-4. 

simple 

strings, sets, and 

(subroutines) and 

DECLARATIONS, 3-1, 

dec larat I ons, 



2-5, Any Identifier referred to In a program must be described In 
some declaration, An Identifier may on|y be referenced by statements 
within the scope (see Scope of declarations, 3-8) of Its declaration. 
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Statements 

2-6, As In ALGOL, the statement Is the fundamental unit of 
operation In the SAIL language, Since a statement within a block or 
compound statement may |tse|f be a b|ock or compound statement, the 
concept of statement must be understood recursively, 

2-7. This definition of a block as a statement has virtues other 
than Its syntactic nlceness, In many ways a block behaves as a 
single complex statement; most Importantly* no transfers (Jumps) may 
be made from outside a block to any statement within |t except the 
first. This assures proper allocation and Initialization of the data 
space for the b I ock , 



2-8, The block 
"outer b I ock", A I I 
as "Inner blocks", 



represent I ng 
ocks Interna 



the program 
to this one w 



Is known as the 
I be referred to 



3 j ock Names 

2-9, The block name construct js used to describe the block 
structure of a SAIL program to a symbolic debugging routine (see 
DEBUGGING, 14-8), The name of the outer block becomes the t]t|e of 
the binary output file (not necesarlly the file name). In addition, 
If a block name Is used following an END, the compiler compares It 
with the block name which followed the corresponding BEGIN, A 
mismatch Is reported to the user as evidence of a missing (extra) 
BEGIN or END somewhere. 

2-10, The <str I ng_constant> <statement> construct is equivalent In 
action to the <statement> alone; that is, the string constant serves 
only as a comment , 



Entry Spec I f I cat I ons 

2-11, See Separately Compiled Procedures, 15-7, 
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SECTION 3 
DECLARATIONS 



SYNTAX 

3-1. 

< id I Ist> 



: := <Identi f |ep> 

: != < 1 dent I f lep> , <jd.l ist> 



<dec I arat i on> 



= <type_dec ! arat j on> 

= <ar ray_dec I arat i on> 

s <pre I oad_spec I f I cat j on> 

= < I abe I _dec larat I on> 

= <procedure_dec I arat 1 on> 

= <def i ne„spec I f I cat I on> 

= <requ I rement> 



<type> 



<a I gebra I c_type> 



= <a I gebra I c_type> 

= <leap_type> 

s <a Igebra I c_type> <|eap_type> 

= <a|gebralc type> ARRAY <leap_type> 

' SET 

a SET <!eap_type> 

= SET ARRAY <leap_type> 

= <type_qua I I f 1 er> <type> 

= REAL 

= INTEGER 

= BOOLEAN 

= STRING 



< I eap,type> 



;:= ITEM 
::= ITEMVAR 
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<type_qua I I f I er> 



EXTERNAL 

INTERNAL 

SAFE 

FORWARD 

RECURSIVE 

FORTRAN 

GLOBAL 



<type_dec larat I on> 



: := <type> < I d_j ist> 



<ar ray^cec I arat i on> 
<ar ray. I I st> 

<array„segment> 
<bound„pa i r_ I i st> 

<bound„pa. i r> 
<lower„bound> 
<UDper_bound> 
<pre!oad„specif I c a 1 1 o n > 
<pre I oad_ I I st> 

<pre I oad„e I ement> 



= <type> ARRAY <array_|lst> 

= <array_segment> 

- <array_ I I st> * <ar ray_segment> 

= <!d_llst> C <bound_pal r_l ist> ] 

5 <bound.pa I r> 

s <bound_patr_!!st> <bound_palr> 

= < I owsr_bound> : <upper_bound> 

= <a I gebra I c.express I on> 

= <algebralc_expression> 

= PRELOAD. WITH <p re I oad_ I I st> 

= <pre I oad.e j ement> 

= <pre I oad_ I I st> , <pra I oad.e I ement> 

s <constant> 

= (constant) <constant> 



<p r ocedupe.declapat|or\> ::= PROCEDURE < i dent I f 1 e r > <i>roced ur e_head> 

<procedure_body> 
:: = <type> PROCEDURE < Ident I f i er> 

<prooedure_head> <procedur e_kody> 



<procedur e_head> 



: := <empty> 

::= ( <f orma I _param_dec I > ) 
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<procedure_body> 
<formal_param_decl> 

<f orma I .parameter. I lst> 
<f orma ! _type> 

<simp|er_formal_type> 



= <empty> 

5 ; <statement> 

= <f orma I .parameter, M st> 

= <f orma I _parameter_ I I st> ; 
<formal_param_decl> 

= <forma|.type> <ld._ I I st> 

= <s I mp I er_f orma I _type> 

= REFERENCE <s I mpTer.f orma I _type> 

= VALUE <s Imp I er_f orma I _type> 

= <type> 

= <type> ARRAY 

= <type> PROCEDURE 



<def Ine.speclf !cation> 
<def lnl 1 1 on. | ist> 

<def Inlt lon> 

<def I ne_ I dent i f i er> 

<def I ne_body> 
<r equ I rement> 
<requ I re. I I st> 

< requ I re_e I ement> 
<SDace„spec> 



» * 






= DEFINE <def inltion.l lst> 

= <def Ini t lon> 

= <defin|t|on> , <def I n i t I on_ | i st> 

= <def Jne. Ident I f ler> = <def I ne„body> 

= < I dent If |er> 

= < I dent | f |er> ( <ld_l lst> ) 

= <str I ng_constant> 

= REQUIRE <requ!re. I |st> 

= <requ I r e.e I ement> 

= <requ I re. I i st> , <requ I re_e | ement> 

= PNAMES 

= <ar i thmet I c_constant> <space_spec> 

= <str I ng_constant> <pe I f II e_spec> 

STRING. SPACE 
SYSTEM PDL 
STRING PDL 
ARRAY. PDL 
NEW ITEMS 
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< re I f ! I e_spec> 



: := LOAD. MODULE 
: := LIBRARY 



RESTRICTIONS 

3-2. For simplicity i the type. qualifiers are listed In on|y one 
syntactic c|ass, Although their uses are always valid when placed 
according to the above s yntax, mo s t of them only have meaning when 
apDlled to particular subsets of these productions; 

SAFE Is only meaningful In array declarations 

I NTErNAL/ExTErNAL have no meaning In formal parameter 

dec I arat I ons 

FORWARD, RECURSIVE, and FORTRAN have meaning only in procedure 

type specifications, 

ITEM ARRAYS do not exist (use ITEMVAR arrays), 

3-3, For array declarations In the outer block substitute 
<constant> for <a I gebra i c_ express i on) In the productions for 
<iower_bound>and <uoper„bouna>, 

3-4. A label must be declared In the innermost block in which the 
statement being labeled appears, 



3-5. The syntax for procedure declarations requires semantic 
embellishment (see Procedure Declarations, 3-37) in order to make 
total sense, In Particular, a procedure body may be empty only In a 
rcstrlctea class of declarations, 
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EXAMPLES 

3-6. Let I,J,K,L,XiY# and P be Identifiers, S a statement: 

Ktyoe.dec larat ion>> INTEGER I,J,K 

EXTERNAL REAL X,Y 

ITEM I 

SET P 

ITEMVAR X 

REAL ITEM Y 

INTEGER ARRAY ITEM J 

INTERNAL STRING K 



(<array_declaratlon>) 



INTEGER ARRAY XC0 : 10, S 103 

REAL ARRAY YCX*P(L)3; Comment Illegal 

In outer block 
STRING ARRAY IC0MF BIG THEN 30 ELSE 3] 
ITEMVAR ARRAY KC0:5,l:L3 
REAL ARRAY ITEMVAR ARRAY PC0J153 



(< labe I ..dec larat lon>) 



LABEL L,X,Y 



(<orocedure dec I arat I on> ) 



PROCEDURE Pi S 
PROCEDURE PdNTEGER I,Ji 

REFERENCE REAL X; REAL Y) ; S 
INTEGER PROCEDURE P (REAL PROCEDURE Li 

STRING I, J; INTEGER ARRAY K); S 
EXTERNAL PROCEDURE P(REAL X) 
FORWARD INTEGER PROCEDURE XUNTEGER I) 
FORTRAN REAL PROCEDURE SIN 



(<def!ne_speclflcat|on>) 



DEFINE CRLF = "CR&LF", 

TTY="1», 
TYPE(MSG)=«OUT(TTY,MSG&CRLF)" 
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3-7, Note that these sample declarations are all given without the 
semicolons which would normally separate them from the surrounding 
declarations and statements, Here Is a sample block to bring it a|| 
tonether (again, let S be any statement, D any declaration, and other 
i dent i f { er s as above J 



BEGIN "SAMPLE BLOCK" 
INTEGER I,J,KJ 
REAL X,Y; 
STRING A; 

INTEGER PROCEDURE PREFERENCE REAL X; REAL Y)j 
REGJN 

Di D; Dj ,,, ;s; M1 ; S 
END "P"; 



REAL ARRAY D I PHTHONGSC0 : 10 , 1 S 100] I 

S J S J S J s 

END "SAMPLE BLOCK" 



SEMANTICS 

Scope of declarations 

3-8, Every b I ock automat I ca I I y Introduces a new level of 
nomenclature, Any identifier declared in a block's head Is said to 
be L°CAl to that block, This means that: 

a, The entity represented by this Identifier Inside the block 
has no existence outside the block. 

b. Any entity represented by the same Identifier outside the 
block Is completely Inaccessible (unless It has been passed 
as a parameter) inside the block, 



3-9, An identifier occurring within an Inner block and not 
declared within that block will be nonlocal (GLOBAL) to It; that is, 
the identifier will represent the same entity inside the bloc* and In 
the block or blocks within which It Is nested, up to and including 
the level In which the Identifier Is declared, 
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3-10, The Scope of an entity Is the set of blocks In which the 
entity Is represented, using the above rules, by Its Identifier, An 
entity iray not be referenced by any statement outside Its scope. 



Tyne Dec I arat i ons 
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3-12. Items do not entirely conform to the structure described 
above, Please suppress any enpuzzlement concerning the rojes of 
Items and itemvars until after you have read the paragraph on Item 
Dec I arat I ons, 3-18 , 



Nu 



mer I c Dec I arat I ons 



3-13, Identifiers which appear In type declarations with types 
REAL or I N t E G E R can subsequently be used to refer to numeric 
variables, An Integer variable may take on values from -2t35 to 
2t35-li A Real variable may take on positive and negative values 
from about 10t-38 to 10t38 with a precision of 27 bits, REAL a n d 
INTEGER variables (and constants) may be used in the same arithmetic 
expressions? type conversions are carried out automatically (see 
Arithmetic Type Conversions, 8-22 below) when necessary. 
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3-14, The BOOLEAN type Is currently identical to INTEGER, As You 
will see, BOOLEAN and algebraic expressions are really eaulvalervt 
syntactically, The syntactic context In which they appear determines 
their meaning, Algorithms for determining the Boolean and algebraic 
Inteterpretations of these expressions will be given below, The 
declarator BOOLEAN is included for program clarity, 



String Declarations 



3-15, A variable 
descr I ptor conta I n 
character string, 



defined in a String declaration is a two-word 
ng the information necessary to represent a SAIL 



3-16, A String may be thought of 
one-d Imens I ona I array of 7-bJt ASCII 
contains a character count and a byte poi 
(see STRINGS, 16-14), Strings originate 
(String Constants* 10-16), as the result 
from some device (see Input, 11-41), 



as a var I ab | e- | ength , 
characters, Its descriptor 
nter to the first character 
as constants at compile time 
of a String INPUT operation 
or from the concatenation or 



decomposition of already existing 
Operator* 8-37 and Substrings, 8 - 4 1 ) , 



strings (see Concatenation 
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I tern Declarations 
Prerequ I s I te 



3-18, Please make no attempt to understand the sections of thjs 
manual describing the associative capabilities of the SAIL language 
until you have read the article describing Its basic flavor In 
CFeldman3, If you do not have access to a copy of the CACM, reprints 
are available from the authors, The structure and operations of the 
associative portions of LEAP and SAIL are so nearly 
seemed foolish to repeat them completely here 
descr I pt I on of the syntax and a brief discussion of 
g I ven her e , 



Identical that jt 

However, a f u I I 

each construct Is 



I terrs 

3-19. The "Associative memory" of the SAIL system Is constructed 
from a universe of Items and a universe of associations among these 
I terrs, An Item Is an entity which Is represented inside the machine 
by Its Internal name and Is otherwise uninterpreted. Items may be 
combined to form "associations" which express facts (see Trloles, 
7-6), They may also be collected into unordered sets (Set 
Declarations, 3-24), 



Item Genesis 



3-20, The 
d i f f er Ing In 



universe of Items Is 
the way an Item enters ItJ 



divided Into three classes 



1) A declared Item results from eac 
Identifier to be of type ITEM, Th 
single Internal n a me to be created for 
Items do not obey the usual rules I 
In particular, Items behave as If they 
outer block, Although they may re 
within the scope of their declara 
declarations, 3-8), they may be ace 
scope If they have been Included In (a 
a n y ass clati on s r sets, r ass|g n ed 
still accessible, They are not delete 
might be helpful to think of de 
associative analogue of algebraic cons 
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3) An association Item results from the execution of a 
bracketed construction triple (Construction - Retrieval 
Distinction; 7-8), These may also be explicitly/ but never 
automatical ly, deleted. 



Datunrs 



3-21 , An I tern 
( Datum) of a I gebra 
anv other variab 
va r i ab 
to by 

4-7) , 



of type 1) or 

c or SET type wh 

e , This Datum 

e of any type except ITEM or 

use of > the DATUM operator 



2) may have an associated value 
ch can be used or altered like 

may represent a simple or array 
ITEMVAR, Datums may be referred 
(Datums, 10-6, Datum Assignments* 



Itemvar Declarations 

3-22, An Itemvar Is a variable whose value is an Item (ft Is a 
reference to an Item), Just as the statements ,f X*-3; A«*X" and "A*-3" 
are equivalent with respect to A» the statements "X*-EDGEJ A*X" and 
"A^-EDGE" are equivalent with respect to a» if X and A are (temvars* 
EDGE an Item, The use of an Itemvar is equivalent to the use of the 
Iterr to which it refers, The difference Is, of course that the 
Iterrvars may reference different items at different times. 



3-23. Just as algebraic variables may be 
In FOR statements, Itemvars observe a spec 
statement, This ver.v important construct 
Statement, 7-14 below, 



bound as loop variables 
al binding in the FOREACH 
s described in FOREACH 



Set Declarations 

3-24, Because the answers to many associative questions are 
many-valued (all the sons of Harry* for example), sets of items are 
provided, A SAIL Set is an unordered collection of items containing 
at rrost one occurrence of any single Item, The more common Set 
operations are available for convenient manipulation of sets, 
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Array Dec I arat I ons 

3-25. In general, any data type which Is applicable to a simple 
variable may be applied In an array declaration to an array of 
variables, Note, however* the restriction (see RESTRICTIONS, 3-2) 
prohibiting ITEM ARRAY X as a legal declaration (ITEMS a r e 
"constants"), although ITEMVAR arrays are allowed. The entity 
renresented by the name of an array, qualified with subscript 
exoresslons to locate a particular element (e.g. A C I * J 3 > behaves In 
every way like a simple variable, Therefore, in the future we shall 
refer to both simple variables and single elements of arrays 
(subscripted' variables) as "variables' 1 . The formal syntax for 
<varlab|e> can be found in Variables, 10-2, 



3-26, Each subscr 
SAFE attribute wl 
lower and upper 
over f low tr I gger s 
dec larat Ion I nh I b 
bolder code , 



pt for an array which is not qualified by the 

I be checked to ensure that it falls within the 

bounds given for the dimension It specifies, An 

an error message and job abortion, The SAFE 

ts this checking, resulting In faster, smaller* and 



3-27. Arrays are stored by 
location 10000, then ACI.J+1D 



rows, That 
I s stored i n 



s, if A C I * J IJ Is stored In 



3-28. There Is no limit to the number of dimensions allowed for an 
array, However, t n e efficiency of array references tend g to decrea s e 
for large dimensions. Avoid large dimensionality If It Is not 
necessary, 



tem Instances stored In an 



3-29, The item Instances stored In an Itemv 

datums whicn are themselves algebraic or Set arra 

good deal of power, since an array of algebr 

dynamically associated with any Item, 



I temvar 
tys, 
a I c 



array may have 
Th j s prov I des a 
values can be 



3-30, Arrays declared In the outer block must have constant 
bounds, since no variable may yet have been assigned a value, A 
certain degree of extra efficiency Is possible In accessing these 
arrays, since they may be assigned absolute core locations by the 
compiler, eliminating some of the address arithmetic, Constant 
bounds always add a little efficiency, even in Inner blocks, 
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3-31, For more details concerning the Internal structure of arrays 
see DEBUGGING, 14-8, Separately Compiled Procedures, 15-7 a nd ARRAY 
IMPLEMENTATION, 16-33, 

Preload Specifications 

3-32, Any arithmetic or String array which Is declared In the 
outer block may be "pre-loaded" with constant Information by 
preceding Its declaration with a <pre!oad._ spec i flea tlon> f This 
specification gives the values which are to be placed In consecutive 
core locations within all arrays declared Immediately following the 
<pre I oad„spec i f I cat i on> , "Immediately", In this case, means all 
Identifiers up to and including one which is followed by 
bound. palr.l 1st brackets <e,g, In REAL ARRAY X, Y, 2C0 : 10 J # W[l : 5] ; -- 
preloads X,Y, and 2; not H). It Is the user's responsibility to 
guarantee that the proper values will be obtained under the subscript 
maop I ng , 

3-33, The original values of pre-loaded arrays will not be lost by 
restarting the program (most arrays are cleared when their 
declarations are processed), but they will not be re* I nl 1 1 a I I zed 
either, The values can be changed by assignment statements, 

3-34, For string arrays, the original pre*|oadea values remain If 
not changed by assignment statements, In general, however, String 
array elements whose values have been changed during program 
executions will be set to null strings when the program is restarted. 



3-35, Algebraic type conversions will be performed at 
to provide values of the proper types to pre-loaded 
compiler will not allow you to fill an array beyond 
capacity to be filled, You may, however, provide 
elements less than the total size of the array? remain 



w 



be set to Zero or the nu 



str I ng, 



comp I | e-t I me 

arrays, The 

Its meager 

a number of 

ng e | ements 
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3-36. 



PRELOAD WITH (5) 0, 3, 4, (4) 
INTEGER ARRAY TABL C 1 * 4 , 1 : 3 3 i 



6, 2; 



The first five elements of TABL will be initialized to 
(parenthesized number is used as a repeat argument). The next two 
elerr.ents will be 3 and 4, followed by four 6's and a 2* The array 
will I ook like this: 



1 











? 








3 


3 


4 


6 


6 


4 


6 


6 


2 



Procedure Declarations 

3-37. If a procedure is typed* 

Statement! 5-19) of the specif 

specified, they must be supplied w 

one correspondence when they are called (see Function Designators, 

8-42 and Procedure statements, 6-2). 



t may return a value (see Return 
ed type. If formal parameters are 
th actual parameters In a one to 



Fo rnra I Pa ramete rs 

3-36, Formal parameters* when specified* provide information to 
the body (executable portion) of the procedure about the kinds of 
values which will be provided as actual parameters in the call. The 
tyre and complexity (simple or array) are specified here. In 
addition* the formal parameter indicates whether the value (VALUE) or 
address (REFERENCE) of the actual parameter will be supplied, If the 
address is supplied, the variable whose Jdentifer is given as an 
actual parameter may be changed by the procedure. This is not the 
case If the value Is given, 
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3-39. To pass a PROCEDURE by value or an ITEM by reference has no 
really determined meaning. Arrays passed by value (requiring a 
complete copy operation) have not yet been Implemented, Therefore 
these cases a r '9 noted as errors by the compiler, 

3-40, The proper use of actual parameters Is further discussed In 
the paragraphs on Procedure Statements* 6-2 and Function Designators, 



Forward Procedure Declarations 
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3-42. 

BEGIN "NEED FORWARD" 

FORWARD INTEGER PROCEDJRE Ti( INTEGER I); COMMENT PARAMS DESCRIBED; 

INTEGER PROCEDURE T2( INTEGER J): 

RETURN <TMJ>+3>; COMMENT CALL Tl ; 

INTEGER PROCEDURE Tl (INTEGER I); COMMENT ACTUALLY DEFINE Til 
RETURN (IF 1=15 THEN I ELSE T?(I-D); COMMENT CALLS T2? 



K-Tl(L); ... ? L*T2(K>; ,,, 
END "NEED FORWARD"; 

Notice that the forward declaration Is required only because BOTH 
procedures are called In the body of the block. If only Tl were 
called from statements within the block* this example could be 
I mo I ementen as ' 

BEGIN "NO FORWARD" 

integer Procedure tkinteger d; 

BEGIN 

INTEGER PROCEDURE T2(J)J 
RETURN (Tl(J)+3); 

RETURN( IF 1=15 THEN I ELSE T2CI-1)); 
END "Tl"; 

• • • 

K-TKL); 

END "NO FORWARD"; 



Recursive Procedures 

3-43. If a orocedure is to be entered recursively, the compiler 
must be Instructed to provide code for saving Its local variables 
when the procedure is called and restoring them when it returns. Use 
the type-qualifier RECURSIVE in the declaration of any recursive 
procedure, 
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3-44, The compiler can produce much more efficient code for 
non-recursive procedures than for recursive ones, We feel that this 
gain In efficiency merits the necessity for declaring procedures to 
he recurs I ve , 



3-45. 



If 



a 



procedure which has not been declared recursive Is 



called recursively, all its local varlab 
locations assigned by the compiler')' 
global to the procedure --no values wl| 
effects should be opserved, 



es (and temporary storage 

will behave as if they were 

be saved, Otherwise no ill 



External Procedures 
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3-47, Any SAIL procedure which Is referenced via these external 
declarations must be an INTERNAL procedure. That is, the 
tyoe-quailfler INTERNAL must appear in the actual declaration of the 
procedure, Again, see Separately Compiled Procedures, 15-7, 



3-48, The type-Qualifier FORTRAN is used to describe the tyDQ and 
ri&me of an external procedure which Is to be called using a DEC 
Fortran calling sequence, AM parameters to Fortran procedures are 
by reference, In fact, the procedure head part of the declaration 
nee?d not be Included unless the types expected by the procedure 
differ from those provided by the actual Parameter s--the number of 
parameters supplied, ana their types, are presumed correct, Fortran 
orocecfu-pes are automat i cat I y Externa I Procedures, See Restrictions 
on Procedure Declarations, 3-53, Procedure Statements, 6-2, Function 
Designators', 8-42 for more information about Fortran procedures, 
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E x a rr p I e : 

3-49, 

FORTRAN PROCEDURE M A X? 

Y«-MAX(X,Z) ; 




PROCEDURE C? (INTEGER PROCEDURE FP); 
BEGIN INTEGER A, I ; REAL X; 

A*FP(I,X); COMMENT I AND X PASSED BY REFERENCE, 
NO TYPE CONVERSION} 
END "CP"J 

INTEGER PROCEDURE PP (REFERENCE INTEGER J; REFERENCE REAL Y)j 

BEGIN 

END* "PP"; 



CP(PP) J 
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Defaults in Procedure Declarations 

3-52. If no VALUE or REFERENCE qualification appears In the 
description* the following qualifications are assumed: 



VALUE 



REFERENCE 



Variables — simple INTEGER, STRING, ITEM, ITEMVAR 
dec I arat I ons, 

Arrays and Procedures, 



Restrictions on Procedure Declarations 
3-53. 

1) The scope of a formal parameter for a procedure P does not 
include statements within any procedure Q declared within P, In 
other words, Q may refer on|y to its own formal parameters, It 
may, however, refer to variables which are local to some global 
procedure, Here Is an example: 



PROCEDURE PKINTEGER I ); 
BEGIN INTEGER JJ 
PROCEDURE P2UNTEGER K); 

BEGIN 
INTEGER LJ 

L-IJ COMMENT THIS IS WRONG *« WON'T WORK; 
L*JJ COMMENT THIS IS ALL RIGHTl 
L-Kj COMMENT CLEARLY ALL RIGHTj 



2) There is no such thing as an ITEM procedure (use IJMVAR), 

3) Fortran procedures can not handle String, Set, or Item 
parameters, Nor can a Fortran procedure return any of these 
types as a resu 1 1 , 

4) Go To Statements appearing in a procedure body may not name 
statements outside that procedure body as targets. 

5) Labels may never be passed as arguments to procedures* 
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0ef I ne Spec i f I cat I on 

3-54, See the section on USE OF DEFINE, 12-0 for a complete 
d I scuss I on, 

Reau I rerrents 

3-55, The user may, using the REQUIRE construct, specify to the 
compiler conditions which are required to be true of the 
execution-time environment of his programs, The requirements fall 
Into three classifications, described as follows: 



Group 1 -- PNAMES 



3-56. If tne 
the coitp I I er Is 
(print names) of a 
and CVST may be 
the names of these 
unless "REQUIREd". 



specification 

nst r uc ted 

dec I ared 



"REQUIRE PNAMES" appears In a program, 

to save the external representations 

Item identifiers. The functions CVIS 

used to convert from Items to Strings representing 

Items (and back), This feature is not available 

Sea Cvis, 1 1 - 8 4 and following for details, 



Group 2 -- Space requirements -- STRING_SPACE, SYSTEM_PDL, etc, 
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Gtoud 3 -- Other files -- LOAD.MODULE, LIBRARY 

3-58, The Inclusion of the specification 
REQUIRE "PR0CS1" LOAD. MODULE, "HEL IBCl, 33 " LIBRARY; would Inform the 
Loader that the file PROCS1.REL must be loaded and the library 
HEL IB , RELCi, 3] searched whenever the program containing the 
specification is loaded. The parameter for both features should be a 
string constant of one of the above forms, The device DSK, and fl|e 
extension ,REL are the on|y values permitted for these entries, and 
are therefore assumed, ^ 



3-59. 



L0A'D_M0DULES (,REL files to be loaded) may themselves 



contain requests for other L0AD_M0DULES and LIBRARYs, LIBRARYs may 
only contain requests for other LIBRARYs, Duplicate specifications 
are In general merged Into single requests (If a file Is requested 
twice* It will be loaded only once), 



3-60. SAIL 
"LIBSAIC1,33" 
execut I on-t | me 



automat I ca I I y 
I n each ma I n 
rout j nes , 



p | aces a 
program^ 



request for 
This library 



the | I brary 
contains the 



3-61. 



You have probably noticed that 



a 



great dea I of prior 



Knowledge Is required for proper understanding of this section. For 
more Information about PNAMES see Cvlsi ll-s* and following, Storage 
allocation is discussed In STORAGE ALLOCATION, 13*22 below, The form 
and use of ,REL flies and libraries are described in "The Stanford 
A-I Project Monitor Manual" CMoorer] and CWeiherl, 



SAILON NO, 57 



SAIL 



4-1 



SECTION 4 
ASSIGNMENT STATEMENTS 



SYNTAX 

4-1. 

<ass I gnrrent> 

< I tem^ass I gn.ment> 
<algebralc..assjgnment> 

< i ten-_ass I gnment> 
<set_ass I gnment> 



: J = <ass I gnment_statement> 
::= <swap_statement> 

:;= <set_ass I gnment> 

::= <a | gebra I c_var I ab I e> * 

<a|gebralc_expresslon> 

:.'= <ltemvar_var|able> *• 

<constructlon_Jtem_expression> 

: : = <set_var lab I e> ♦- 

<constructlon_set_exnresslon> 



<swap_statement> 



i:= <var|able> «♦ <varlab|e> 



RESTRICTION 

4-2. If the operator Is », the expression (of whatever kind) on 
the right hand side must be a slmole or subscripted variable* or 
DATUM(< I tem_pr I mary> ) , The * operator may not be used In an 
assignment expression (see Assignment Expressions, 8-4), It Is- valid 
only at statement level. 
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SEMANTICS 

4-3, The assignment statement causes the value represented by an 
expression to be assigned to the variable appearing to the left of 

You will see later (see Assignment 
ue may be assigned to two or more 
of two or more assignment symbols, The 
statement proceeds In the following 



the assignment symbol, 
Expressions, 8-4) that one va 
variables through the use 
operation of the assignment 

order! 



a) 

b) 
c) 



The subscript expressions of the left 
any) are evaluated from left to right, 

The expression Is evaluated, 



The value of the expression Is assigned to the 
variable, with subscript expressions, If any, hav 
as determined In step a* 



part variable (If 



eft part 
ng va I ues 



4-4, This order I ng 
However f t becomes 
Expressions, 8-4) 
anywhere in the s 

1*3* 
.ACI>3+U«-1); 



ring of operations may usually be dls 
e s important when expression assignments (A 
or function calls with reference parameter 
tatement, For example, in the statements 



sregarded . 

Ass | gnment 

s appear 



A [3] will receive the value 4 using the above algorithm, If no 
subscript calculations were performed until after the expression 
evaluation, ACl 3 would become 4, Be careful, 



4-5, As 
Iterrvar the 
express | on , 



the syntax Imp I i es, if 
value to be assigned 
Similarly for sets, 



the left part variable Is of type 
must be a construction Item 



4-6. However, any algebraic expression (REAL, INTEGER (BOOLEAN), 
or STRING) may be assigned to any variable of algebraic type, The 
resultant type will be that of the left part variable, The 
conversion rules for assignments involving mixed types are mildly 
amusing, They are Identical to the conversion rules for combining 
mixed types In algebraic expressions (see Arithmetic Type 
Conversions, 8-22, String-Arithmetic Conversions, 8-27 below), 
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Datum Assignments 



4-7, me algebraic or Set value associated with an Item 

using an assignment statement In which the left cart Is a 

DATUM operating on an Item Primary, This Is valid 

because the syntax for <varlable> (see Variables, 10-2) 

DATUM construct, The expression Is checked for valid 

tyoe conversions are made before this kind of store 

hazard Is that there are times when the compiler cannot verify that 

an Item assigned to an Itemvar has a datum whose type matches that 

expected by the Itemvar. Incorrect conversions might well be made In 

th I s case , 



s changed 
the word 
syntact leal I y 
Includes this 
ty and proper 
occurs, One 



Swap Assignment 



4-8, The 

hand J rie 
hand side, 
other type 



* operator causes the value of the variable on the left 

to be s wapped with the value of the variable on the right 

Algebraic type conversions are made, If necessary; any 

conversions are, as usual, invalid, Remember, the «• 



operator may not be used In assignment expressions, 



Examples 



4-9. 

XM«-A + B; 



Comment |f A, B and X are Real* I Integer* 

the Real value of the sum Is truncated, 
converted to an Integer, and stored In I, 
The truncated value Is then converted to 
a Real number and stored In X. 



BEGIN REAL ITEMVAR X; 
X*L0P(SET3)I 

DATUM(X) * 5» Comment a conversion to 5,0 wl 
before the store Is done, but there Is no 
that the Item obtained by L0P(SET3) was not 
for example, as INTEGER ITEM A; 
END; 



I be made 
guarantee 
dec | ared, 
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SECTION 5 
EXECUTION CONTROL STATEMENTS 



SYNTAX 

5-1. 

<condlt|onal_statement> 

< i f statements 



: := < I f ^statement) 

: := < I f ..statement) ELSE <statement> 

::= IF <boo I ean_express I on> THEN <statement> 



<ao_to_statement> 



< labe l.ldent I f ler> 



= GO TO < labe I. I dent I f ler> 
= GOTO < | abe j _ i dent I f !er> 
= GO < labe I . I dent I f er> 



: ;= < I dent | f !er> 



<for statement> 



<for list) 



<for list element) 



FOR <a I gebra I c_var I ab I e> 

<statement> 
NEEDNEXT <for statement) 



<for_ I 1st) DO 



<f op_ I I st_e I ement) 

<f o r 1 1 I st> , <f or.. II st_e lement) 



<a 
<a 



= <a 



gebra I c_express I on) 

gebra I c_express I on) STEP 

<a I gebra I c_express I on) UNTIL 

<algebralc_expresslon> 

gebra I c.express I on) STEP 

<a I gebra I c_express Ion) WHILE 

<boolean_expresslon> 



<wh \ I e.statement) 



WHILE <boo | ean^express Ion) DO <statement> 
NEEDNEXT <whl I e_s tatement) 
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<ao statements 



::= DO <statement> UNTIL <boo I ean_expr ess I on> 
:;= NEEDNEXT <do_statement> 



<case_statement> 
<case - statement,head> 



JJ= <case_statement_head> <compound_ ta I i > 
::= CASE <a!gebra!cexpress lon> OF BEGIN 



<retum_ > statement> 

<done.,statement> 
<next_statement> 



J := RETURN 

::= RETURN ( <expression> ) 

: := DONE 

: := NEXT 



SEMANTICS 

Conditional Statements 

5-2, These statements provide a means whereby the execution of a 
statementi or a series of statements? Is dependent on the logical 
value produced by a Boolean expression. 

5-3, A Boolean expression Is an algebraic expression whose use 

Implies that It Is to be tested as a logical (truth) value, The 

rules for determining this value are given In Simple Expressions* 8-9 
and f o I I ow I ng. 

If Statement 

5-4. The statement following the opeator THEN (the "THEN part") is 
executed If the logical value of the Boolean expression Is TRUE? 
otherwisei that statement Is Ignored. 



If ... Else Statement 

5-5. If the Boolean expreslon is true, the "THEN part" Is executed 
and the statement following the operator ELSE (the "ELSE part") is 
ignored, If the Boolean expreslon Is FALSE, the "ELSE part" is 
executed and the "THEN part" Is Ignored, 
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Ambiguity In Conditional Statements 

5-6, The syntax given here for conditional statements does not 
fully explain t ne cor r e s pondence s between THEN-ELSE Palr s when 
conditional statements are nested. An ELSE will be understood to 
match the Immediately preceding unmatched THEN. 



Exarrole 

5-7. 

COMMENT DECIDE WHETHER TO GO TO WORK; 

IF -WEEKEND THEN 

IF GIANTS" ON TV THEN BEGIN 

PHONE. EXCUSEC'GRANDMOTHER DIED") ; 

ENJOYTGAME) ; 

SUFFER (CONSCIENCE. PANGS) 
END 
ELSE IF REALLY. SICK THEN BEGIN 

PHONE. EXCUSE("REALLY SICK"); 

ENJOY(0) ; 

SUFFER(AGONY) 
END 
ELSE GO_TO_WORK; 
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Go To Statements 

5-8. Each of the three forms of the Go To statement means the same 

thing -- an unconditional transfer Is to be made to the "target" 

statement labeled by the label Identifier, The following rules 
per ta I n to labe I s J 

1) All label Identifiers used In a program must be declared, The 
declaration of a label must be local to the block Immediately 
surrounding the statement It identifies, Note that compound 
statements (BEGIN-END pairs containing no declarations) are 
not blocks, Therefore' the block 

BEGIN "Bl" 
INTEGER I,J; LABEL LlJ 

If'pES THEN BEGIN "CI" 
• t • 
Li: . , . 

END "CI"; 

Go'tO LI 
END "Bl" 

I s I ega I , 

2) No Go To Statement may specify a transfer from a statement SI 
outside a given block to a target statement $2 Inside that 
block. This Is automatic from rule X, since the label 
Identifying S2 Is not available to SI. Again the rule does 
not apply to compound statements* as the above example 
demonstrates, 

3) No Go To statement may specify a transfer from a statement 
within a procedure to a statement outside that procedure (you 
can't Jump out of procedures). 



5-9. Labels will seldom be needed for debugging purposes, The 
block name feature (see DEBUGGING, 14-8) and the listing feature 
which associates with e a ch source line the octal address of Its 
corresponding object code (see Listing Features, 13-13) should 
provide enough information to find things easily, 
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5-10, Many program loops coded with labels can be alternatively 
exDressed as For or While loops, This often results In a source 
program whose organization Is somewhat more transparent, and an 
object program which Is more efficient, 

For Statements 

5-11, For and While statements (see also FOREACH Statement, 
7-14) provide methods for forming loops in a Program, They allow 
the repetitive execution of a statement zero or more times, These 
statements w.l I I be described by means of SAIL programs which are 
functionally equivalent but which demonstrate better the actual 
order of processing, Refer to these equations for any questions 
you might have about what gets evaluated when, and how many times 
each part Is evaluateq. 



5-12, Let VBL be any algebraic variable, AEl, 
algebraic expressions, 8F a Boolean expreslon, 
location, S a statement, Then the following SAIL 
e g ii | v a I e n t * 



, , , AE8 any 

TEMP a temporary 

statements are 



Using For Statements -• 

FOR VBL «* AEl, AE2, AE3 STEP AE4 UNTIL AE5, 
AE6 STEP AE7 WHILE BE, AEd DO Sj 



Equivalent formulation without For Statements -- 



VBL«-AEli 
SJ 

VBL-AE2J 

s; 
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Comment STEP-UNTIL loop; 
VBL-AE3; 
L00P1J 

IF VBL- (SIGNCAE4)#AE5> < THEN 
BEGIN 
s; 

V8L-VBL+AE4; 
GO TO LOOPl 
END; 



Comment STEP-WHILE loop; 
VBL-AE6; 
L0OP2J 

IF BE THEN BEGIN 

s; 

VBL*VBL+AE7; 
GO TO L00P2 

END; 

VBL«-AE8j 

s; 

If AE4 (AE7) Is a variable* changing Its value within the loop 
will cause the new value to be used for the next Iteration, If 
AE4 (AE7) |s a constant or an expression requiring evaluation of 
some operator* the value used for the step element will remain 
constant throughout the execution of the For Statement. If AE5 Is 
an expression, It wj|j be re-eva I uatad before each Iteration, 

5-13, Now consider the For Statement; 

FOR VBL*AE1 STEP CONST UNTIL AE2 00 S; 

where const |s a positive constant, The compiler will simplify 
this case to * 

VBL+AEi; 
L00P3: 

IF VBL < AE2 THEN BEGIN 

s; 

VBL«-VBL + CONST; 
GO TO L00P3 

END; 
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L00P3J 

IF VBL > AE2 THEN BEGIN 



5-14, The value of VBL when execution of the loop Is 
term I nated, whether It be by exnaustlon of the for list or by 
execution of a DONE or GO TO statement (see Done Statement, 
5-23. Go To Statements, 5-8), |s the value last assigned to It 
using the algorithm above. This value Is therefore always 
w e I I - d e f i n e d, » 

5-15. The statement S may contain assignment statements or 
procedure calls whJch change the value of VBL. Such a statement 
behaves the same way it would If Inserted at the corresponding 
oolnt In the equivalent loop described above, 



Wh j I e Statement 

5-16. The statement 

WHILE BE DO S? 

is eaulvalent to the statements? 

LOOP: 

IF BE THEN BEGIN 

s; 

GO TO LOOP 
END; 
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Do Statement 

5-17. The statement 

DO S UMTIL BE; 
is equivalent to the sequence? 



LOOP: 

s; . 

IF -BE THEN GO TO LOOP; 



Case Statements 

5-18. The statement 

CASE AE OF BEGIN 

S0; si; S2; , . . Sn 

END 

is functionally equivalent to the statements; 

TEMp*-AE; 

IF TEMP = THEN S0 

ELSE IF TEMP = 1 THEN Si 

ELSE IF TEMP = 2 THEN S2 

ELSE IF TEMP = n THEN Sn 
ELSE ERROR; 

For applications of this type the CASE statement form wl|| give 
significantly more efficient code than the equivalent If 
statements, Notice that dummy statements may be inserted for 
those cases which w||| not occur or for which no entries are 
necessary. For example, 



CASE AE OF 3EGIN 

S0; ; ? S3; ; ; S6; emo 

orovldes for no actions when AE is 1,2,4,5, or 7, When AE Is 0, 
3, or 6 the corresponding statement will be executed, 
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Return Statement 

5-19. This statement 19 invalid |f It appears outside a 
procedure declaration. It provides for an ear|y return from a 
procedure execution to the statement calling the procedure, If no 
return statement Is executed! the procedure will return after the 
last statement representing the procedure body Is executed (see 
Procedure Declarations* 3-37), 



5-20, An untyped procedure (see Procedure Statements, 6-2) may 
not return a value, The return statement for this kind of 
procedure consists merely of the word RETURN. If an argument Is 
qlven. It will cause the compiler to Issue an error message, 

5-21. A typed procedure (see Function Designators, 8-42) must 
return a value as It executes a return statement, If no argument 
Is present an error message will be given, If the procedure has 
an algebraic type, any algebraic expression may be returned as Its 
value; type conversion will be performed In a manner described by 
Arithmetic Type Conversions, 8-22 and String-Arithmetic 
Conversions, 8-27 below, If the procedure Is of type SET or ITEM, 
the argument must be an expression of type SET or ITEM. 



5-22, H no RETURN statement Is executed In a typed procedure, 
the value returned Is undefined (it could be anything -- try It, 
It's fun) , 



Done Statement 

5-23, The statement containing only 
to terminate the execution of a FOR, 
explicitly, Its operation can most eas 
example, The statement 



the word DONE may be used 
WHILE, or FOREACH loop 
|y be seen by means of an 
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FOR 1*1 STEP 1 UNTIL n DO BEGIN 

s; 



If'b'E THEN DONE; 



END 



Is equivalent to the statement 
FOR 1-1 STEP 1 UNTIL n DO BEGIN 

s; 

If'b'E THEN GO TO EXIT; 

• • # 

END; 

exit: 

In either case the value of I Is well-defined after the statement 
has been executed (see For Statements, 5-14), 



5-24, The DONE statement w I. I I 
innermost loop In w hlch It appears, 



only cause an escape fro^ the 



Next Statement 



5-2 
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the 
n of 
thin 



5-26, The reserved word NEEDNEXT must proceed FOR, WHILE, or DO 
In any loop using the NEXT statement, 
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>■- x a rr p I e 
5-27, 



NEEDNEXT WHILE -EOF DO BEGIN 

S«-INPUT(1,1) J 

NEXT; Comment check EOF and terminate jf TRUE; 

T«-INPUT(1,3); 

PROCESS INP(JT(S,T); 
END; 
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SECTION 6 
PROCEDURE STATEMENTS 



SYNTAX 

6-1. 

<procedure..statement> 

<actual.Darameter„ I lst> 

<actual_parameter> 



*i* <orocedure_ ident i f ler> 
jjs <procedure_ I dent i f I er> ( 

<actua I ^parameter, I I st> ) 

J? s <actua I „.parameter> 
J:» <actua l_parameter_ I I st> , 
<actua I _parameter> 

:* <expresslon> 

:» <array_ldent I f ler> 

is <orocedure_ I dent i f I er> 



SEMANTICS 

6-2. A procedure statement Is used to invoke the execution of 
an untyped procedure <eee Procedure Oec larat I ons, 3-37), It may 
also be used to supply parameters to the procedure, 



6«»3, No value may be raturnad from a procedure called by a 
procedure statement, since there Is no specification In the 
statement tailing how to use the value, The compiler determines 
how a procedure may be used by noticing if a type was specified In 
the procedure declaration. After execution of the procedure, 
control returns to the statement Immediately following the 
procedure statement. 



Actual Parameters 

6-4, The actual parameters supplied to a procedure must In 
general match the formal parameters described In the procedure 
declaration, As usual* the exception Is algebraic expressions; 
the transfer functions described In Arithmetic Type Conversions, 
8-22 and Str Ing-Ar I thmet Ic Conversions! 8-27 will be applied to 
convert the type of any algebraic expression passed by VALUE to 
the algebraic type required by the procedure. 
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Call by Va I ue 

6-5, If an actual parameter Is passed by VALUE* only the value 
of the expression Is given to the procedure. This value may be 
changed or examined by the procedure, out this will In no way 
affect any of the variables used to evaluate the actual 
parameters, Any algebraic expression, any Item or Set expression 
may be passed by value, Melther arrays nor procedures may be 
massed by value, See the default declarations for parameters In 
Procedure Declarations, 3 -3y, 



Ca 



by Reference 



6-6, If an actual parameter Is passed by REFERENCE, Its address 
Is passed to the procedure, All accesses to the value of the 
made by the procedure are made Indirectly through this 
Therefore any change the procedure makes In a reference 
will change the value of the variable which was used as 
parameter, This Is sometimes useful. However If It Is 
not intended, use of this feature can also be somewhat confusing 
as well as moderately Inefficient, Reference parameters should be 
used only where needed. 



parameter 

address, 
Parameter 
an actua I 



6-7, Variables, constants, procedures, arrays, and most 
expressions may be passed by reference, Neither Items nor String 
expressions (or String constants) may be reference parameters, 



6-8, If an expression is passed by reference* Its v a |ue Is 
Hrst placed In a temporary location; a constant passed by 
reference Is stored In a unique location, The address of this 
location Is passed to the procedure, Therefore* any values 
changed by the procedure via reference parameters of this form 
will be Inacceslble to the user after the procedure call, If the 
called program Is an assembly language routine which saves the 
Parameter address, It is dangerous to pass expressions to It, 
since this address will be used by the compiler for other 
temporary purposes, a warning message will be printed when 
expressions are called by reference. 
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6-9, The type of each actual parameter passed by reference must 
be Identical to that of Its corresponding formal parameter, An 
exception Is made for Fortran calls (see Fortran Procedures, 
6-12). If an algebraic type mismatch occurs the compiler will 
create a temporary variable containing the converted value and 
oass the address of this temporary as the parameter, A warning 
message will be printed, 



Procedures as Actual Parameters 

6-10, If an actual Parameter to a procedure PC Is the name of a 
Procedure PR with no arguments, one of three things might happen: 

1) If the corresponding formal parameter requires a value of a 
type matching th a t of PR (In the loose sense given above In 
Actual Parameters! 6-4), the procedure Is evaluated and Its 
value Is sent to the procedure PC, 

2) If the formal parameter of PC requires a reference 
procedure of Identical type, the address o? PR is passed to 
PC as the actual parameter, 

3) If the formal parameter requires a reference variable, the 
procedure is evaluated, Its result stored, and Its address 
passed (as with expressions In the previous paragraph) as 
the parameter, 

6-11, I f a procedure name followed by actual parameters appears 
as an actual parameter It Is evaluated (see Function Designators, 
8-42), Then if the corresponding formal parameter requires a 
value, the result of this evaluation Is passed as the actual 
parameter. If the formal parameter requires a reference to a 
value, It Is callea as a reference expression, 



Fortran Procedures 



6-12, If the procedure being called Is a Fortran procedure! all 
actual parameters must be of type INTEGER (BOOLEAN) or REAL. All 
such parameters are passed by reference, since Fortran will only 
accept that Kind of call. For convenience, any constant or 
expression used as an actual parameter to a Fortran procedure Is 
stored In a temporary cell whose address Is given as the reference 
actua i pa rameter . 
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6-13, It was explained In Procedure Declarations. 3-37 that 
formal parameters need not be described for Fortran procedures, 
This allows a program to call a Fortran procedure with varying 
numbers of arguments, a feature which exists In DEC Fortran, No 
tyoe convers I on w i I | be performed for such parameters, of course, 
If type conversion Is desired, the formal parameter declarations 
should be included In the Fortran procedure declaration; s A I L will 
use therr If they are present. 



6-14, To pass an array to Fortran, mention the address of 
first element <e,9» A[0], or Br.1,1]).' 



ts 



Implementation Detal Is 

6~i5, See the paragraphs concerning procedures In the section 
on implementation (PROCEDURE IMPLEMENTATION* 16-46) for 
descriptions of the calling sequences and basic layout of SAIL 
orocedures, See also Separately Compiled Procedures, 15-7 for 
more information about these useful constructs. 



Examples? 

6-16, To call an untyped procedure? 

BEGIN 

pr6c(i+j,acq:),L) ; 
• i • 

END J 

To call a procedure of type Integer with one Integer argument: 



I«-PR0C(PR0C( I ) ) ; 
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SECTION 7 
LEAP STATEMENTS 



SYNTAX 

7-1. 

< I eap_3t*teroent> 

<set_st»tement> 



<assoclat|ve_statement> 



:s <3et_statement> 

:s <assoc I at I ve_statement> 

:= < I ooD,stat«ment> 

lis <set_ass I gnment> 

::= PUT <construct I on_ I tem_express I on> IN 

<set_var 1 ab I e> 
i:s REMOVE < r et r ! e va | .. I tem_expr ess I on> FROM 

<set_var lab I e > 



= <1 tem_ass I gnment> 

= DELETE <retr I eva I _ I tem_express i on> 

s MAKE <construct i on.tr Ip le> 

= ERASE <retr I eva I _tr lp I e> 



< I ooD,*tatement> 



<h I nd I ng_ I lst> 



<assoclatlvt_conttxt> 



<e | errent> 



<Vtr I p I e> 



s FOREACH <b Indlng.l lst> 

<assoc I at I ve.context> 00 <statement> 
= NEEDNFXT < |oop_statement> 

= <ld.l lst> | 

= <ld.l !st> SUCH THAT 

= <e I ement> 

s <assoc lat I ve_context> AND <elemtnt> 

a <assoc 1 at I ve_context> a <element> 

= <retr i eva I .assoc 1 at I ve_express I on> IN 

<retr |eval_set_expression> 
= <retr I eva I _tr I p I e> 
= ( <boo I ean^express i on> ) 

s <X_der I ved_set> z 

<\_assoclat|ve_expresslon> 
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SEMANTICS 

LEAP Introduction 



7-2, 

s y n t a c t i 
assoc I at 
Fe I drran 
fad I itf 
CACM ar 
fad I ttl 
construe 
emohas I z 
construe 



The basic ALGOL facility In SAIL has been extended with 
c constructs and semantic Interpretations to reference an 

This extension was developed by J, 
and Is described In CFeldman3, The LEAP 
slightly from those published In the 
discussion of the use of the associative 
Impje examples are given 



Ive data store, 
and P, Rovner 
es In SAIL differ 
tide, In the 
es# reasonably 



t, These examples and associated discuss 
e the differences between the SAIL Implementat 
ts published in the CACM article. 



for each 
ons should 
on and the 



7-3, The LEAP constructs all involve manipulations of one basic 
entity, the Item, An Item Is a conceptual entity which Is 
represented at execution time by a unique number, Associated with 
each Item In the universe Is a DATUM. The DATUM of an Item may be 
an algebraic Quantity* an array of such Quantities* or a SET. The 
DATUM assignment statement (see Datum Assignments* 4-7) Is used to 
store the value of an expression Into the D^TUM of an Item, The 
of a declared ARRAY ITEM Is loaded automatically when the 
in which the ARRAY ITEM Is declared Is entered. The DATUM 



DATUM 
n I ock 
of an 



tern may also 



( see Datums, 10-6 ) , 



be referenced 
Examples: 



during evaluation of expressions 



INTEGER ITEM- father* Joe; 
INTEGER ARRAY ITEM ages CU203; 
INTEGER a*b lC * 



DATUM (father) •■ 21 ; 
DATUM (ages) EbJ . * b / 
c - DATUM (Joe) - 12 ; 



33 



The DATUM operator Is Intended to link the powerful associative 
Drocesslng routines developed for manipulation of Items with the 
algebraic facilities of ALGOL. Th|» link Is made as efficient as 
possible -• only two machine Instructions are reaulred to access 

the DATUM of an Item, 
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7-4, Items or Information about Items may be stored In a 
variety of ways, The simple entity ITEM does not It itself occupy 
storage. Instead, Instances of ITEMS are stored In ITEMVARS, 
SETS, or associations, The simplest of these forms Is the 
ITEMVAR: an I tern may be "stored" In an ITEMVAR. Evaluation of 
that ITEMVAR will then yield the I tern stored Into It. ITEMVARS 
are thus roughly analagous to simple arithmetic variables, SAIL 
also allows arrays of ITEMVARs, with the obvious Interpretation, 
A typical declaration would be "ITEMVAR ARRAY xCl : 22 , * 11" , or 
♦'INTEGER ITEMVAR ARRAY yCi:20]", 



7-5, Instances of Items may also be stored as 
collections, or SETS, Facilities are provided for 
operations (see Set Expressions, 9-2). The SAIL system 
word of storage for each Item In a set, A set will 
most one Instance of a specific Item* If an Instance of 
already In set $, then any subsequent attempts to put an 
of X In S will have no effect, This Is In keeping w 
standard mathematical notion of set, 



unordered 

common set 

uses one 

conta I n at 

Item X Is 

nstance 

th the 



7-6, 

I terr 

I tern 

stor 

trio 

SAIL 

the 

the 

asso 

chan 

by: 



The thlrdi and perhaps most Important, form of storage of 

Instances Is the association, or triple, Ordered triples of 

Instances may be written Into or retrieved from a special 

atlve store. The method of storage of these 

gned to facilitate fast and flexible retrieval. 

mately two words of storage for each triple In 

store, There Is at most one copy of a triple In 

time, Once a triple has been stored In the 

component Item instances may not be 

which follow, a triple Is represented 



e, the assoc 
I es Is des 

uses approx 

assoc lat | ve 
store at any 
dative memory, i ts 
ged , I n the examo I es 



A • = V 



where A, 0, and V arQ Items or Itemvars. A, 0, and V are 
mnemonics for the three components of a triple: attribute, object, 
and value, The exact syntactic rules for describing triples are 
discussed In SEMANTICS, 9-2. 
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General Restrictions 

7-7, The Implementation of the associative store and other 
forms of Item storage Imposes several limitations on the LEAP 
capability, The maximum number of I terns (as represented by their 
unique numbers) Is 4090, This arises from an overwhelming desire 
to store a triple In one word of storagei and hence the 
requirement that an item number be descrlbable In 12 bits, 



Construction - Retrieval Distinction 



7-8. 
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sic o 
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I of 
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ss I on 
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I n wh 



perat 
s -- 
some 
cessa 
ct I on 

of 
Ic fo 

are 
I v e 



Oft 

mer 

ctlo 

ch X 



Ions which are performed on the 
construction of a new element In 
existing element In the store, 
ry to distinguish the operations 

manages to find Its way to the 

associative expressions (Item 

rms <construct I on„ I tem.pr I mary> 

discussed, The ascent from 

expressions preserves these 
speaks of a 

or of a 
en the BNF productions s pe aH of 
ely a shorthand to denote that 
ns exist, one In which X means 

means "retrieval", 



PUT and REMOVE 



7-9, The verbs PUT and REMOVE are provided for easily altering 
sets. After Initialization, all sets are empty, They may be 
altered either by PUTtJng Item Instances Into them or by explicit 
set assignment statements, The PUT statement Is executed as 
follows? the construction Item expression Is evaluated, and must 
yield a single item, An Instance of this Item Is then recorded In 
the set specified by the set variable, REMOVE operates in an 
analaoous fashion, Jf an Instance of the Item to be REMOVEd does 
not occur In the set, an error message Issues forth. 
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DELETE 

7-10, DELETE releases an item from the universe of current 
Items, Some small amount of storage Is reclaimed In th|s Process, 
as vg e I I as the unique number associated with the Item DELETEd, 
Since there Is an upoer limit on the number of Items* the DELETE 
statement can be used to free Item numbers for other uses, The 
DELETE statement In no way alters the Instances of the DELETEd 
Item which are present In sets or associations, The user should 
be sure that there are no Instances of the DELETEd Item occurring 
In sets, Itemvars or associations, Attempts to reference a 
DELETEd litem In any way will result In confusion, 



MAKE 



7-11 . Assoc I at I ons 

the MAKE statement, If the 

store, no alterations are made, The 

statement Is a construction triple? that 

construction associative expressions, 

expressions Is Interpreted in a construct 

associative expressions In this trlpl 



may be added to the associative memory with 

association already exists In the 

argument to the MAKE 

s, a triple composed of 

Every construct In these 

on sense, The component 

are evaluated left to 



e 



Mont, Some constructs In these expressions (e,g, NEW, 
Items, 9-6 or In the case of pracKeted triples) require 
unique item numbers be created, Examples: 



see 

that 



NEW 
new 



MAKE iteml • ttem2 = I tem3 

MAKE Iteml • Itemvarl = NEW 

MAKE lteml»Citem2«| temvarl=l tem3]=ltemvararrayC233 



7-12. The last example Involves the use of a BRACKETED TRIPLE, 
The bracketed triple "r.ltem2 • Itemvarl = Item]" which Is used as 
an associative expression Is Inserted In the associative store, A 
new unlaue Item number Is generated* which refers to that 
association. Various functions ( ISTRIPLE, FIRST, SECOND* THIRD 
see Item Selectors, 9-5) may use an Instance of this new Item 
as their argument, Consider the following statements: 



MAKE number • Cpart • hand = finger] = new 
FOREACH x,y SUCH THAT number • x = y AND 
(ISTRIPLE (x) AND FIRST (x) = part) DO 
count *• count ♦ DATUM (y) ; 



(5) 
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ERASE 

7-13. The ERASE statement Is provided to undo the damage done 
by the MAKE statement. The same general class of arguments must 
be Drovided, ERASE requires a retrieval triple as fts argument, 
thus eliminating such questionable constructs as NEW from said 
triples, However* the construct ANY may aDp&ar In a triple 
s pe c I f I c at Ion to ERASE, Th|s allows a whole slew of approprtate 
associations to be erased In one statement, (Restriction! ERASE 
ANY • ANY ; 5 ANY l s . co.n a tdare,d. bad form, and l s a s a direct result* 
forbidden), Sample ERASE statements are: 



ERASE Item! • Jtem2 = I tem3 
ERASE Iteml » Itemvarl r ltem2 
ERASE Itemvarl • ANY = Iteml 
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7-15,' An element of a FOREACH specification may also be a 
Da renthes I zed boolean expression* It Is of course requisite that 
all It em vers appearing In the boolean expression must be bound* 
f.e, no searching of the assoc I at I ve store wit) be accomplished 
during the evaluation of the boolean expression, Example: 

FOREACH x SUCH THAT x IN setl AND < DATUM (x) < 21 ) DO , , 



Only members of setl with DATUMs less 
this specification, In the example 
7-14 )> the second <e|ement> could a 
ooolean form: ( x IN set? ), 



than 21 will be selected by 
above (FOREACH Statement, 
so have been written ]n Its 



7-16, The most powerful <element> construct Is a retrieval 
triple, Such specifications make searches (for any FREE Itemvars) 
or ver I f I cat Ions ( i n the case of completely BOUND elements) fn the 
store of associations, For example: 



1, 
2, 



FOREACH x SUCH THAT a • 
FOREACH x SUCH THAT a • 



o = x DO PUT x IN set ; 
o=xANDb«g=xDO 



s clear -* a search Is conducted through 
all associations with attribute "a" and 

discovered, then the body 



The a I rr of statement 1 

the associative s t o r e fo r 

otuect w o M , If k such associations are 

of the statement Is executed k times, with x taking on success 

values each time, The second example Is similar, but places 

additional constraint on the values of x which should be 

Since the second element (b • g = x) I 

search Is conducted, but a test is made 

association b • g = x' Is In the store, 

retrieved during the search for a ® o = x, 



s comp I ete I y 
to ver I f y 
where x' is 



ve 

an 
returned, 
BOUND, no 
that the 
some Item 



7-17, In general, an Associative context> Is satisfied by some 
assignment of Item Instances to the Itemvars In the <bindlng llst> 
If all of the <element>s are satisfied under that 'assignments A 
<boolean express I on> | s satisfied If It evaluates to "TRUE, A 
<retrieval tr!p|e> containing no <set expression^ Is satisfied by 
an assignment I f the association It specifies Is In the universe 
of associations, A <retrleval trlo|e> containing a <set 
exDresslon> (or ANY) Is satisfied If there are, In the universe of 
associations, any of the associations formed oy substituting 
elements of the set (or arbitrary Items) In the position occupied 
by the <set express I on>, 
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7-18, With this concept of SaTISFIERS, we proceed to the more 
general case with more than one Itemvar cited in the binding list, 
Suppose there are a such Itemvars. Then the <statement> Is 
executed once for each permutation of the universe of Items among 
the a Itemvars which SATISFY the associative context. During the 
execution of the <statement>, the a Itemvars will evaluate to the 
particular permutation which SATISFIED the associative context, 



7-19, The above description for several Itemvars Is sound but 
slightly misleading, The SAIL Implementation makes no effort to 
avoid duplicating a particular permutation of values which 
satisfies the associative context, Thus the <statement> will be 
executed one OR MORE times for every permutation which satisfies 
the associative context, (See Restrictions and Caveats, 7-21), 
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DO 



FOREACH x,y,z SUCH THAT father*x=y AND father«y=z 

FOREACH x>;z SUCH THAT father* (father • x) S z DO ., . . 

RQ^RE^CH x ,:y SUCH THAT x IN set AND father • x = y DO 

FOREACH *,y SUQH THAT father • x = y and x IN set DO 
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A • .= V 
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IN S 
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IN ;S 
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• = 
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• y = 
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• ;X. := 
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• = 
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• X r 
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• B 
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X 


• y = 


z 



Verification that the triple 

Is In the store* 
Verification that Item A Is In set S, 
A | | Items x In the set S., 
Only the va | ujb Is free, 
Attribute and object are free. 
Only the object Is free, 
Only the attr Ibute Is free, 
Object and value are free, 
Attr Ibute and value are free, 
PROHIBITED 
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Restrictions and Caveats 

7-21, The SAIL Implementation differs In fundamental ways from 
the Implementation described by Feldman and Rovner In the CACM 
article, Their FOREACH statement builds a record of a|| the 
permutations which satisfy the associative context, being careful 
to Include only one copy of each such permutation. Then the 
<statement> Is executed once for each permutation that was stored 
during the retrieval operation, The SAIL Implementation uses the 
associative context as a generator of satlsflers, Thus one group 
of satlsflers Is found, <statement> Is executed for those 
satlsflers, then another found, etc. until all groups of 
satlsflers have been found, The Implications of this method are 
start ling* 

1, There Is absolutely no way to guarantee that a particular 
group of satlsflers Is not repeated, There are methods of coding 
around this problem, The user can stuff Itemvar arrays with 
results of a FOREACH and avoid duplications, In many search 
specifications the nature of the searches (e.g. sets, where only 
one copy of an item Instance can occur In the set*) avoids 
duo I I cate sat I sf I ers, 

2, Operations within <statement> whloh change the associative 
data store may affect the subsequent satlsfler groups retrieved, 
Note the difficulty jn the following; 



FOREACH x,y 



nk 



x = y DO MAKE I I nk • x = newllnk 
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a FOREACH statement, 
n general well-defined, 

satisfied the FOREACH 
In the <statement>» the 
ond to the group of 
Ing executed, The only 
Is when the search 
iative context contains 
th I s restr let I on Is 
f a boolean expression, 
s in the <b i nd I ng_ I I st> 

that the evaluation of 



7-23, Expression case statements, conditional expressions, and 
procedure calls are ail v a lld within an associative context 
specification, provided that ail Itemvars used In these constructs 
are BOUND, 
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SECTION 8 
ALGEBRAIC EXPRESSIONS 



SYNTAX 

8-1. 

<exo ress I on> 



:= <s I mp I e. express I on> 

* a <cond I t I ona I .express ! on> 

:= <ass I gnment.express ! on> 

J « <case_express I on> 



<cond 1 1 1 ona I .express I on> its IF <boo I ean_express ! on> THEN <exppesslon> 

ELSE <expresslon> 

<ass i gnrrent. express | on> *• * = <ass I gnment_statement> 

<casa. express I on> 



<exppess I on. I I st> 
<s Irrp le_express I on> 



<boolean.expresslon> 
<st r I ng express I on> 



::= CASE <a I gepra I c. express I on> OF ( 
<express I on. I I st> ) 

: : = <express I on> 

s:= <express I on_ I I st> , <expresslon> 

::= <a I gebra 1 c. express I on> 

::= <boo ! ean_express I on> 

: := <str lng.expresslon> 

is* <set. express i on> 

: : * <assoc I at I ve. express I on> 

::« <a I gebra I c. express I on> 

!i= <a I gebra I c. express I on> 



<a I gebra Ic.express !on> ::= <d I s junt | ve_express I on> 

jj= <a|gebra!c.expresslon> v 

<d!sJunctive_expresslon> 

<d i sjunct i ve^express I on> ;:= <re I at I ona I ..express I on> 

s js <dlsjunctlve_expression> A 
<re|at!ona!.expresslon> 
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< r e I a 1 1 o n a I _ e xi© r « s s I o n > 
< a \ s e t> «" a f c _ r e t a 1 1 o na I > 

< I eap^relatJona |> 



<re I a 1 1 o na I _ ope- r a to p > 



<add I ng_expressJon> 
<add i ng_operator> 



<tern-> 

<m u I t_operator> 



: t * < a I g e b r a I c „. r e I a 1 1 o na I > 
::= < leap_re I at I ona l> 

tfs <add! ng_expressl on> 

i '• s < r e I at I ona I .express f on> 

< r e I a t f o na I _ op e r a to r > 
<add lng_express Jen> 

;:= <retr leva 1.1 tem_express I on> £ 
<retr i evaf_ set _ express i on> 
*!'* <retr I eva l^set^expressl on> 

< r e I a t \ o na I „ o per a t o r > 
<retr i eva I _set_express I on> 

::= <retr i eva f_tr Ip le> 

j;* < 

: .is > 
i 

s < 
s > 

: := <term> 

::= <add I m-g. express i on> <add_operator> <term> 



= + 



<f actor> 



* LAND 
s LOR 
a EQV 
= XOR 



s := <factor> 

::= <term> <rnu | t_operator> <factor> 

j : » # 

= / 

* % 

= LSH 

a ROT 

- MOO 

= PIV 

s 8, 

: :« <pr !mary> 

::= <primary> f <prlmary> 
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<substr I ng_spec> 



<function_desicnator> 

<actua I .parameter, I jst> 

<actua!_paremeter> 

<algebra!c_varlable> 
<strlng_varlable> 



<a | gebra I c_var I ab I e> 

- <pr lmary> 

•* <pr lmary> 

LNOT <pr|mary> 

A8S <primary> 

<str I ng_var lab I e> C <substr I ng_spec> 3 

<constant> 

<funct|on.designator> 

( <a I gebra | c.express I on> ) 

LENGTH ( <petr i eva ! _set_express I on> ) 

LENGTH ( <str I ng.express i on> ) 

CVN ( <l tem_pr imary> > 

LOP ( <str !ng_var iab|e> ) 

ISTRIPLE ( <| tem„express|on> > 

<a|gebraic.expresslon> TO 

<a|gebralc_expresslon> 
<a I gebra I c_express I on> TO - 
<a | gebra i c.express I on> FOR 

<algebraic_expresslon> 

<procedure_ident|f|er> 
<procedure_ i dent | f | er> ( 

<actua ! .parameter. I i st> ) 

<actual_parameter> 
<actua | .parameter.. I ! st> , 
<actual_parameter> 

<express I on> 

<ar ray. I dent I f i er> 

<procedure.ldentjf I e r > 

<var lab I e> 

<var!ab!e> 
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SEMANTICS 

Conoitlonal Expressions 

8-2. A conditional expression returns one of two Possible 
values depending on the logical truth value of the Boolean 
exoresslon, For the rules on evaluation of this truth value see 
Simple Expressions, 8-9 and following, If the Boolean expression 
(BE) Is true, the value of the conditional expression is the value 
of the expression following the delimiter THEN, If BE Is false, 
the other value Is used, If both expressions are of an algebraic 
type, the precise type of the entire conditional expression Is 
that of the "THEN part", Otherwise, both expressions must be of 
precisely the same type (Set, Item, etc,). Unlike the nested If 
statement problem, there can be no ambiguity for conditional 
expressions, since there Is an ELSE cart In every such expression, 



Exarrp I e 
8-3, 



FOURTHDQWNCYARDSTOGO, YARDLINE, IF 
ELSE IF YARDLINE < 90 THEN 
ELSE RUNFQRIT) 



YARPLINE < 
FIELDGOAL 



70 THEN PUNT 



Assignment Expressions 



8-4 
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E x a rr- n I e 
8-5. 

IF (1*1+1) < 30 THEN 1-0 ELSE I-I+U 

Case Expressions 

8-5 , The exp ress I on 



CASE AE OF (E0i El, E2, 

IF AE=0 THEN E0 

ELSE IF AE=1 THEN Fl 
ELSE IF AE=2 THEN F2 

ELSE IF AE=n THEN En 
ELSE ERROR 



i En) Is equ I va I ent to 



8-7. The type of the entire expression Is therefore that of E0, 
If any of the expressions El ,,, En cannot be fit Into this mold 
an error message Is Issued by the compiler, 



Exarco I e 
8-8. 



OUT(TTY,CASE ERRNO 0F("BAD DIRECTORY", 
"IMPROPER DATA MODE", 
"UNKNOWN I/O ERROR", 

"COMPUTER IN BAD MOOD") ) ; 
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S I mp I e Express I oris 

8-9, Simple expressions are simple only In that they are not 
conditional* case, or assignment expressions. There are in fact 
some exciting complexities to be d I scussed with respect to simple 
expressions, Set, Item, and Associative expressions are discussed 
in the next section, Before continuing with a description of 
algebraic expressions In the following paragraphs, an explanation 
of what is meant by a Boolean expression is in order, 



The Boolean Expression Anomaly 



8-10, you will notice that In the syntax a Boolean expression 
Is said to be equivalent to an algebraic expression, This Is 
simply a way of expressing syntactically that there are 



automatically Invoked 
value from an express 
operators or I og | ca 
algebraic (Integer) va 
s i mp I e: 



rules, 1) for obtaining a logjca [truth 

on which does not contain any logical 

connectives, and 2) for obtaining an 

ue from one which does, The rules are very 



Integer, Real* or String to" Boolean" 

8-11. The logical truth value of an expression N X' which Is of 
type Integer, Real, or String Is the same as the truth value of 
the expression *X*0' f A String expression will be converted to an 
Integer one (see String-Arithmetic Conversions, 8-27) before the 
comparison Is made, This need not be done for a Real expression, 
of course, since the Integer and Real representations for are 
the same, This means you can write expressions of the form 



IF 1*3 THEN El ELSE E2 
IF 1+3*0 THEN El ELSE E2 



wnen you rea I I y mean 



One application of this rule can be found in several of the 
execution time routines (ENTERi LOOKUP, etc.) where an error flag 
Is returned which Is zero (FALSE) If the operation was successful 
and non-zero (TRUE) if an error occurred. This flag may be tested 
as a Boolean variable (IF FLAG THEN ERROR ( "LOOKUP FAILED") ) or to 
determine exactly what went wrong by examining Its actual Value, 
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"Boolean" to Integer 
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-13. 



Precedence of Algebraic Operators 

8-14. The binary operators in SAIL generally follow "normal" 
precedence rules. That Is, exponentiations are performed before 
multiplications or divisions, which In turn are performed before 
additions and subtractions, etc, The logical connectives A and v # 
when they occur* are performed last ( a before v), The exact 
precedence of operators Is described In the syntax above, The 
order of operation can be changed by including parentheses at 
appropriate points (see Primaries, 8-39). 



8-15, In an expression where several operators of the same 
precedence occur at the same level, the operations are performed 
frorr (eft to right, See Algebraic Expressions, 8-16, Disjunctive 
Expressions, 8-19 for soeclal evaluation rules for logical 
connectives, 
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A I q e i ■ r a I c Expressions 

8-16. If an algebraic exDresslon has as its major connective 
the logical connective "v", the expression has the logical v a lue 
TRUE (arithmetic value some non-zero Integer) If either of Its 
c o n j u nets (the expressions surrounding the " v *• .) is true* FALSE 
otherwise, 



8-17. AvB does NOT produce the bit-wise Or of A ana B 
are algebraic expressions. Truth values combined by 
operators will in general be meaning 
ann LA^D for' bit. operations), 



if they 

numer I c 

ess (use the operators LOR 



8-1.8. The user should be warned that in an expression 
containing logical connectives/ only enough of the expression Is 
evaluated (from left to rinht) to uniquely determine Its truth 
valLe, Thus In the expression 

(J<3 v (K«-K + l) > 0), 

K will not be incremented If J Is less than 3 since the entire 
exnression is already known to be true, Conversely in the 
exoresslon 

(X >0 a SQRT(X)>2) (see Disjunctive Expressions, 8-19)# 

there Is never any danger of attempting to extract the square root 
of a negative X, since the failure of the first test testifies to 
the falsity of the entire expression -- the SORT routine Is not 
even called In this case, 



Disjunctive Expressions 

8-19, If a disjunctive expression has as its major connective 
the logical connective "a»», the expression has the logical v a lue 
TRUE if both of Its disjuncts are TRUE? FALSE otherwise, A9aln, 
If the first disjunct is FALSE a logical value of FALSE Is 
obtained for the entire expression without further evaluation f 
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Relational Expressions 

8-20. If any of the binary relational operators Is encountered, 
code Is produced to convert any String arguments to Integer 
numbers, Then type, conversion Is done as It Is for + operations 
(see Arithmetic Type Conversionsi 8-22), The values thus obtained 
are compared for the indicated condition, A Boolean value TRUE or 
FALSF Is returned as the value of the expression, Of course, If 
this expression is used In subsequent arithmetic operations, a 
conversion to Integer (see "Boolean" to Integer, 8-12 above) Is 
performed to obtain an Integer value, 



8-21 . Leap re I at | ona I 
I ate r sect I on , 



operators are discussed In depth 



Arithmetic Type Conversions 



8-22. The binary arithmetic* logical, and String operations 
which follow will accept combinations of arguments of any 
a I c? e r? r a I c types, The type of the result of such an operation Is 
sometimes dependent on the type of its arguments and sometimes 
fixed. An argument may be converted to a different algebraic type 
before the operation Is performed. The following table describes 
the results of the arithmetic and logical operations given various 
combinations of Real and Integer Inputs, ARGl and ARG2 represent 
the types of the actual arguments, ARGl* and ARG2* represent the 
types of the arguments after any necessary conversions have been 
made . 



S A I L n N NO, 57 



SAIL 8-10 



8-23, 
OPERATION 



ARG1 ARG2 ARGl* ARG2* RESULT 



4- - 

* T 'V 



LAND LOR 
EQV XOR 



LSH ROT 



MOiJ DIV 



INT 


INT 


INT 


INT 


INT# 


REAL 


I NT 


REAL 


REAL 


REAL 


INT 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


INT 


INT 
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REAL 
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REAL 
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REAL 


REAL 


REAL ' 


REAL 
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INT. 
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REAL 
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REAL 
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REAL 
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REAL 


REAL 


REAL 
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REAL 


REAL 


REAL 


INT 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


INT 


INT 


INT 


INT 


INT 


REAL 


INT 


INT 


INT 


INT 


INT 


REAL 


INT 
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* Unless ARG2, Is <P» for the operator * 



8*24. An Integer is converted to a Real number In such a way 
that If this Real number Is converted back t0 an Integer, the same 
Integer value will result, This is true unless the absolute value 
of the number Is greater than 134217728, Some |.ow-order 
significance will be lost for Integers greater than this 
ma on I tude , 



8 - ? b . A Real number 
f o I lowing f ormu I a \ 



s converted, to an Integer using the 



Integer - S I GN ( Rea I ) * < I a r gest integer I such that I <A8S (Rea | ) ) , 

This function will produce Invalid results for Rea I numbers with a 
magnitude greater than 134217728, 
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8-11 



8-26, If a String Is presented as an argument to any of these 

operations! It Is converted to an Integer, If an Integer or Real 

argument Is presented to the concatenation operator (,&) , It Is 
converted to a one-character string, Here are the rules? 

Str I ng-Ar I tnmet | c Conversions 

8»27, If a String Is presented as an argument to an arithmetic 
operator# as a (value) parameter to a procedure which expects a 
Real or Integer value! or as an expression to be stored by an 
assignment statement Into a Real or Integer variable! an Integer 
value Is created for It as follows! 

If the string Is the null string (length=0), a Is returned 
as Its Mnteger v a lue', Otherwise a word which has Its lefthand 
29 bits 0! the rightmost 7 b I ts. conta I n | ng the first character of 
the Strlng# Is returned Is Its Mnteger value'. For , I nstan C e> the 
String "ABCDE" has as Its Mnteger value' '101, the octal 
representation of the letter 'A', This Integer w||| then be 
converted to a Real number! If necessary, 



8-28. If an Integer or Real number 
Is expected, a one character Str 
character consists of bits 29-35 (the 
numeric value, A Real number Is 
before the conversion, For Instance, 

"STRING"* '15 * '12 



Is presented where a String 
ng will be created whose 
rightmost seven bits) of the 
not converted to an Integer 
the express I on 



will result In a String which Is 8 characters long, The last two 
characters are the ASCII codes for carriage return and line feed, 
respect | ve I y , 



Adding Expressions 



operators grouped In the semantic class 
operate at the same p recede n ce level, The user 



8-29. All the 
<adc_ppe rat r> al 

must sometimes provide parentheses In order to make the meaning of 
such expressions absolutely unambiguous, The + and - operators 
will do integer addition (subtraction) If both arguments are 
Integers (or converted to Integers from strings); otherwise, 
rounded Real addition or subtraction! after necessary conversions, 
I s cone , 
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8-12 



8-30, LAND, LOR, XOR, and EQV carry out bit-wise And* Or, 
Exclusive Or, and Equivalence operations on their arguments, No 
type conversions are done for these functions. The logical 
connectives a and v do not have this effect -- they simply cause 
tests and Jumps to be compiled. The type of the result js that of 
the first operand, This allows exoress|ons of the form X LAND 
'777777777* where X Is Real* If they are really desired, 



8-31, Currently the values of the 
Produced by these operators (and these 
available to. the user, 



various overflow flaos 
wh I ch f o I I ow) are not 



Terrrs 

Arithmetic Multiplicative Operators 

8-32, The operation * (multiplication), like + and -, 
represents Integer multiplication only If both arguments are 
Integers* Real otherwise, Integer multiplication uses the IMUL 
machine Instruction -- no doub I e- 1 ength result Is available, 



8-33, The / operator (division) always does rounded 
division, after converting any Integer arguments to Real, 



Rea 



8-34, The % operator has the same type table as + 
It performs whatever division Is appropriate, 



and 



8-35, LSH and ROT provide logical shift operations on their 
first arguments, If the Value of the second argument Is positive, 
a shift or rotation of that many bits to the left Is performed, 
If It Is negative, a right-shift or rotate is done, To obtain an 
arithmetic shift (ASH) operation, multiply or divide by the 
apoi-oPrlat* DOwer of 2\ the compiler will change this operation to 
a shift operat Ion, 



8-36, DIV and MOD force both arguments to be Integers before 
dividing, X MOD Y is the remainder after X DIV Y is performed 
(X MOD Y = X - (X DIV Y)#Y); 
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Conca tenat I on Operator 

8-37, This operator produces a 

the String with length the sum 

containing all the characters of the 

the end of all the characters of 

first be converted to strings If 

String-Arithmetic Conversions, 8-27 

& operator Is to collect lines of text, 

sources, which wl|| subseauently be 

Numbers can be converted to strings representing their exte 

fornrs (and . vice-versa) through explicit calls on execution 

routines like CVS and CVD (see Execution Routines, 11-1 below) 



result of type String, It 
of the lengths of Its argume 
second string concatenate 
the first. The operands 

necessary as described 

above. The normal use of 

from several other st 

sent to an output dev 



Is 
nts, 
d to 
wl I I 

In 
the 
r I ng 
ice, 
rna I 
1 1 me 



Factors 

8-36, A factor Is either a primary or a primary raised to a 
power represented by another primary, As usual, evaluation Is 
frorr left to right, so that AtBtC Is evaluated as (AtB)tC. In the 



factor XtY, a su i tab I e 
performed to produce an 
Otherw I se a rout I ne I 
The result has the type 
type Real In the latter, 



number of multiplications and additions Is 
"exact" answer If Y is a positive Integer, 
s called to approximate ANTII_0G(Y LOG X), 
of X In tne former case, It is always of 



Pr i ira r I es 

8-39. A 
always acts 
express I on 



8-39, A primary represents an arithmetic or String value which 
always acts as a unit In any binary operation, It Is either an 
expression surrounded by parenthesles which indicate that all 
internal operations should be performed before combining It with 
other things, or one of myriad other constructs which will be 
considered separately, 

Variables and Constants 

8-40, These are clearly primary objects, They are values 
contained in specific core locations, or In parameter stacks, or 
In the case of some numeric constants, they are Immediate 
operands , 
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SuDst r I DPS 

8-41, A String variable nam* which 
specification reo resents a part of the 



I s qua I I f I ed by 
named string. 



feo r (oSents 
Str In9" ST, 
of ST, 
cha racters 
substr I ng 
such that 



a substring 
STCX FOR Y] 



the Xth through th e ( X + Y ■• Dth characters of th e 

STCX TO Y3 represents the Xth through Yth characters 

STCX TO -3 represents the Xth through LENGTH(X)th 

of ST, If at any time an attempt Is made to compute a 

with a negative length, or with X<1# or with length I 

X+L-l > LENGTH(ST), the Job w|ll be terminated with in 



error message, 
characters) ». 



STCX FOR 03 Is the null String (length s 0, no 



Function Designators 



8-42, A f 
Is produced 
tyoed execut 
function des 
be dec I ared 
only be 
Statements! 
procedure I 
procedure, 
the value ml 
procedure mu 



unction designator defines a single value. This value 
by the execution of a typed user procedure or of a 
lon-tlme routine (Execution Routines, 11-1), For a 
Ignator to be an algebraic primary, its procedure must 
to have an algebraic type, Untyped procedures may 
called from procedure statements (see Prooedure 
6-2) • The value obtained from a user-defined 
s that provided by a Return Statement within that 
If the procedure does not execute a Return Statement, 
ght be anything at all, A Return Statement In a typed 
st mention a value (see Return Statement, 5-19), 



f unct I on 
s In a 



-43, The rules for supplying actual parameters in a fu 
eslgnator are Identical to those for supplying parameter 
rocedure statement (see Procedure Statements, 6-2). 

8-44, Several of the constructs given here as primaries have 
the form of function designators, However, the operations 
necessary to obtain the values of these constructs are generally 
compiled directly Into the program, Descriptions of these 
functions follow: 
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Length 

8-45, LENGTH Is always an 
arauirent Is a set expression* 
the set, If the argument Is 
characters In the string, 



Integer-valued function, If Its 

the result Is the number of Items In 

a string* Its length Is the number of 

The length of an algebraic expression 



s always 1 (see String-Arithmetic Conversions, 8-27) 



Lon 

8-46. The LOP operator applied to a String variable removes the 
first character from the String and returns It In the form given 

In String-Arithmetic Conversions, 8-27 above, The String no 

longer contains this character, LOP applied to a null String has 

a zero value, If the argument Is a Set expression the result Is 
an Item, This case Is described below (Item Constructs, 9-4), 



Cvn 

8-47, CVN has as Its value the Integer 
representation of Its Item aroument, This 
Implementation-dependent, and should only 
are willing to follow the compiler writers 



which is the Internal 

f unct Ion f s h I gh I y 

be used by people who 

around a lot, Its 



Inverse function |s CVI, described In Item Constructs, 9-4 below, 



Lnot 

8-48, The unary operator Lnot produces the b 

of Its (algebraic) argument, No type conversions 

to Integers) are performed on the argument, 

result (meaningful or not) Is the type of the argument. 



twlse complement 

(except strings 

The type of the 



Abs 

8-49, The unary operator ABS Is valid only for algebraic 
Quantities, It returns the absolute value of Its argument. 



Unary Minus 

8-50, -X Is equivalent to (0-X), No type conversions are 
performed, 
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Boo I ean Pr Iwar les 

fi-51.. The unary Boolean operator - applied to an argument BE 
has the value TRUE If BE Is false, and FALSE If BE Is true. 

Notice that -*A is not the bitwise complement of A# If A js in 

alaebrale value, If used as an algebraic value, -».A Is simply If 

A*0 (sea "Boolean" to Integer, 8-12), some non-zero Integer 
otherwise, 



8*52, Istrlpje (IE) Is TRUE If 1£ Is an Item which describes a 
bracketed triple* It Js FAL^E otherwise* If IE |s not an Item 
express Ion* the compiler wil I I complain bitterly, 

IS TRIPLE ( CA»BrV3 ) Is true, 

ISTRIPLE ( ^declared ltem> ) Is false. 
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SECTION 9 
Set AND ASSOCIATIVE EXPRESSIONS 



SYNTAX 
9-1, 

<set_expr«ss I on> 
<X set^express \ on> 

<X set_term> 

<X._set_f actor> 

<X set_pr Imary> 



<set_var I ab I e> 

<X i tem_expr_ I I st> 

<X der I vod„set> 
<assoclat|ve - operator> 



s <X - set - express ! on> 






:s 






• » — 

• * s 

• • ■» 

t • m 

« • « 

: : s 



<X_set_term> 

<X_set_express I on> u <X„set_term> 

<X_set_f actor> 

<X_set_term> « <X set_factor> 

<X_set_pr I mary> 

<X_set_f actor> - <X_set_pr I mary> 

PHI 

<set_var I ab I e> 

<X_ I tem.expr. list) 

( <X_set_express I on> ) 

<X_oer i ved_set> 



: := <var lab le> 

::= <X_ I tern. express i on> 

:js <X_I tem.expr. I I st> , <X_ i tem.express I on> 

::= <X_assoc I at I ve_expr> 

<assoc!at|ve_operator> 
<X_associative._expr> 



s • 



s « 



<assoc I at I ve^express ! on> ::= <X_assoc i at I ve_exor> 

<X assoc lat I ve„expr> ?:s <X_ I tem_express i on> 

::= <X_set_express!on> 
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9-2 



<X I tem_8xpress I on> 



= <X_ I tem_pr I mary> 
= <selector> ( <X_ I tem.pr !mary> ) 
= C <X„ I tem_pr lmary> • <X_ I tem.pr Imary> 
<X„ I tem_pr !mary> 3 



<construct I on_ I tem_pr |m> ::= < I tem_pr i mary> 

;':s NEW 



<r etr I eva I _ I tem_pr I m> 
< I teir.pr lmapy> 



<X_trlp|e> 
<se I ectpp> 

< I terrvar^var lab I e> 
<set_var lab I e> 

< I eap.re I at lona l> 



::= NEW ( <a I gebra I c.express I on) ) 
::s new ( <ar ray_name> ) 

J is < I tem.pr lmary> 
: :s ANY 

;:'« < I tern, I dent I f ler> 

s s= < I temvar_var lab I e> 

::= C V I < <a I gebra I c. express I on> ) 

::= COP ( <set_var lable> ) 

: := LOP ( <set - var lab le> ) 

:i= <X_der I ved_set> 5 

<X_assoclat|ve_expresslon> 

:= FIRST 
is SECOND 
:s THIRD 

s= <var lab I e> 

** <varlable> 

;= <retr I eva I _assoc lat 1 ve_express j on> IN 

<retr|eva|_set_expre5slor>> 
:= <petrleval_assoclat|ve.express|on> 

<re I at I ona I _operatpr> 

<retr I eva I ^assoc I atve.express I on> 
:* <retr leva! .trip le> 
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SEMANTICS 

Set Express I ons 



9-2, Three rather standard operators are Implemented for use 
with sets, These are union (u)# Intersection (n), a nd subtraction 



<-). These operators have the standard 
Interpretations, The only possible confusion 
subtraction: If we perform the set operation setl 
there Is an Instance of an Item x In set2 but not 
subtraction proceeds and no error message Is given, 



mathemat I ca I 

pertains to 

- set2i and If 

In setl, the 



Set Pr I mar I es 



9-3. In 
p r i mar I es : 



add 1 1 1 on 
the empty 



to the 
set PHI, a sex c 
expressions, and derived sets, The 
LENGTH of 0, Its use Is 
resu Its f rom a I I st of 
Item expression Is evaluated. 
answers to questions which 
conventions are; 



three set 
f Item 



<set_var I ab I e>, there are 
set c«m Po sed f a list 

empty set Is the set with a 

unrestricted. A set primary which 

tern expressions Is put together as each 

Derived sets are really sets of 

search the associative memory. The 



--all x such that a • b 5 x 
--all x such that a • x = b 
-- (a • b) u (a v b) 



Examples of set primaries! 

PHI 

< Iteml , Item2 # I temorocedurel ) 

( I teml • I temvarl) 
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It err Constructs 
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to Das 
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I dent I 
la Ined 
In tha 
tern Ins 
eva I 
tance o 
ot we I 
e <set_ 
COP In 

set a«* 
If LOP 

the s i 
lect t 



I terns 
ment , 
s aro 
numbe 
f Ier 
ear I I 
t It 
tance 
uates 
f the 
I de 
expre 

tha 
gumen 

Is 
mn I e 
he r 



when 

since 

und In 

rs may 

number 

er, an 

emvar , 

s f rom 

the 

first 

f I ned, 

ssJon> 

t Its 

t# but 

used, 

reason 

emoved 



I terr Se I ector s 

9-5, The operators FIRST, SECOND, and THIRD are provided for 
decomposing bracketed triples (see Bracketed Triples, 7-12, The 
< I terr.pr lmary> argument Is assumed to be an Instance of an Item 
which'was created for the bracketed association when the MAKE was 
executed* Examples; 

FIRST < £a«o=v3 ) evaluates to a, 
SECOND ( Ca«o=v3 ) evaluates to o, 
THIRD ( ra»o=v] ) evaluates to v. 
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NEW I terra 



9-6. 
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any Construct 

9-7, Some associative searches may need only partial 
specification -- particular portions of a foreach specification 
may be unimportant, The ANY construct Is used to specify exactly 
which parts of the specification are "don't care'"s. Examples 
are! 

FOREACH x SUCH THAT father • x i ANY DO PUT x IN sons 



CVI 

9-8, 
o 



9-8, The function CVI Is provided for those people who 
on having the world at their disposal, The argument Is an 
and the result Is an Instance of the Item which uses that 
as Its unique Identifier, Absolutely no error checking 
CVI I s f or dar I ng men, 



I ns I st 
Integer 
i nteger 
s done, 
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LEAP Booleans 

9-9, Several boolean primaries are Implemented for comparing 
sets and Items, In the following discussion, "lx M means Item 
exnresslon, and M se»» means set expression, These are: 

1, Set Membership, The boolean "Ix IN se" evaluates the set 
exoresslon, and returns TRUE If the Item value specified by the 
Item expression Is a member of the set, 

2, Association Existence, The boolean " lx • Ix = |x » returns 
TRUE If the association exists In the associative store, 
E x a nr p I e s «' 

IF father ® x = Joe THEN . , , 

IF father • Joe = ANY THEN MAKE type • Joe = legitimate 

3, Relations, The use of the third Kind of boolean Is more 
restricted than the syntax Implies, Only the following relations 
are va I I d > 



I x = I x 
lx * lx 
sel < se2 
sel < se2 

sel = se2 

sel * se2 

sel > se2 

sel > se2 



-- obvious interpretation 

-- obvious Interpretation 

-- true If sel Is a proper subset of se2 

-- true If sel Is Identical to se2 or 

If sel Is a proper subset of se2 

-- obvious Interpretation 

-- obvious Interpretation 

-• equivalent to se2 < sel 

-- equivalent to se2 1 sel 
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SECTION 10 
BASIC CONSTRUCTS 



SYNTAX 
10-1. 
<var lab | e> 



<subscr|pt_l I st> 



a < I dent If |er> 

= < ! dent | f 1 er> C <subscr I pt_ I I st> ] 
a DATUM ( <ltem Identifier^ ) 
s DATUM ( <ltem_ldentlf I er> ) C 
<subscr I ot_ | lst> 3 



S!= <a I gebra I e_express I on> 

JJs <subscrlpt_llst> , <algebralc. express -lon> 



SEMANTICS 

Variables 

10-2, If a variable Is simply an Identifier* It represents a 
single value of the type given In Its declaration, 



10-3, If It |s an Identifier qualified by a subscript list |t 
reoresents an element from the array bearing the name of the 
I dent I f l§r , 
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10-5, For more Information about the 
arrays, see ARRAY IMPLEMENTATION, 16-33, 



Implementation of SAIL 



Da turns 

1P-6. Jf- the Item argument of DATUM has an algebraic datum, 
this value is returned, Otherwise the result is representative of 
some other data type and the value returned will have very little 
meaning as an algebraic value; It will probably be some Internal 
pointer or something, This is mentioned here because there are 
times when the compiler will not be able to tell that such a type 
mismatch has occurred. Then It will be up to the user to 
Interpret the strange results. If a Set is desired here, of 
course, the result Is a Set primary and may be used as such, 



I dent I f I er s 

10-7, You will notice that no syntax was Inc 

non-terminal symbols <ldentlf|er> or <constant>, It 

to explain these constructs In an Informal manner, 



uded for the 
s f ar eas I er 
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10-8, A SAIL letter Is any of the upper or lower case letters A 
through j?, or the underline character (_), Lower case letters are 
rnaDDed Into the corresponding upper case letters for purposes of 
symbol table comparisons (SCHLUFF Is the same symbol as Schluff), 
a digit Is any of the characters through 9, An Identifier Is a 
string of characters consisting of a letter followed by any number 
of letters and digits (try us -• most text editors will give up 
before SAIL will). There must be a character which Is neither a 
letter nor a digit (nor either of the characters " . " or "$") both 
before and after every Identifier, In other words# If YOU can't 
determine where one Identifier ends and another begins In a 
urogram you have never seen before, well, neither can SAIL, 

10-9, There Is a set of Identifiers which are used as SAIL 
delimiters (In the Algol sense -- that Is, BEGIN Is treated by 
Algol as If It were a single character, Such an approach Is not 
practical, so a reserved Identifier Is used). These Identifiers 
are called Reserved Words and may not be used for any purpose 
other than those given explicitly In the syntax, Another set of 
Identifiers have preset declarations -- these are the execution 
time functions, These latter Identifiers may be redefined by the 
user; they behave as If they were declared In a block surrounding 
the outer block, A list of reserved and predeclared Identifiers 
foil ows: 



Sail Reserved words 
10-10, 

ABS AND ANY ARRAY ARRAY PDL BEGIN BOOLEAN CASE COMMENT COMPLEX COP 
CVI CVN DATUM DEFINE DELETE 00 DONE ELSE END ENTRY EQV ERASE 
EXTERNAL FALSE FIRST FOR FOREACH FORTRAN FORWARD FROM GLOBAL GO 
GOTO IF IN INTEGER INTERNAL ISTRJPLE ITEM ITEMVaR LABEL LAND 
LENGTH LIBRARY LOAD MODULE LNOT LOP LOR LSH MAKE MOD NEEONEXT NEXT 
NEW NEW ITEMS NOT NULL OF OR OwN PHI PNAMES PRELOAD WITH PROCEDURE 
PUT REAL RECURSIVE REFERENCE REMOVE REQUIRE RETURN ROT SAFE SECOND 
SET STEP STRING STRING PDL STRING. SPACE SUCH SYSTEM. PDL THAT THEN 
THIRD TO TRIPLE TRUE UNTIL VALUE WHILE XOR 
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Sa 



Predec lared Identifiers 



10-11, 

ARRBLT ARRINFO. ARRTRAN ARRYIN ARRYOUT 3REAKSET CALL CLOSE CLOSIN 
CLOSOUT CLRBUF CODE CVaSC CVD CVE CVF CVFIL CVG CVIS CVO CVOS CVS 
CVSI CVSIX CVSTR CVXSTR ENTER EQU GETCHAN GETFORMAT INCHRW JNCHRL 
INCHRS INCHSL INCHWL INSTR INSTRL INSTRS INPUT INTIN LENGTH LINOUT 
LOOKUP MTAP'E OPEN OUT OUTCHR OUTSTR REALIN RELEASE RENAME SCAN 
SETBREAK SETFORMAT STRBRK TTYIN TTYINL TTYINS WORDIN WORDOUT 
USERERR USETI USETO 



10-12, Some of the reserved words are equivalent 
special characters. These equivalences are: 



to certain 



CHARACTER 



RESERVED WORD (s) 



AND 

EQV 

NOT 

OR 

XOR 

INF 

IN 

SUCH 



THAT 



Arithmetic Constants 



10-13, 

12369 

'12357 

123, 

0123,0 

,524 I 

5,3e>4 



is an Integer with decimal value 12369 
Is an Integer constant with octal va|ue 12357 

l 5 a Real constant w lt,h floating point value 123,0 
Is a Real constant with floating point value 123,0 

s a Real constant with floating point value 0,524 

Is a Real constant with floating point value 53000,0 



5,342<s>-3 Is a Real constant with value 0,005342 
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10-14, If a . or a 9 appears In a numeric constant, the type 
of the constant Is returned as Real (even If It has an Integral 
value). Otherwise |t Is an Integer, Type conversions are made at 
compile time to make the type of a constant commensurate with that 
reaulred by a given operation, Expressions Involving only 
constants are evaluated by the compiler and the resultant values 
are substituted for the expressions, 



10-15, The reserved word 
(Boolean) constant -l; FALSE 



TRUE |s equivalent to the Integer 
s equivalent to the constant 0, 



String Constants 

10-16, A String constant Is a string of ASCII characters (any 
which you can get into a text file) delimited at each end by the 
character " . If the " character Is desired In the strlng# Insert 
two " characters (after the Initial delimiting " character, of 
course ) , 



10-17, A String constant behaves like any 
primary, It Is originally of type String, but 
Integer by extracting tne first character 
String-Arithmetic Conversions, 8-27), 



other (a I Qepra I c ) 
may be converted to 
If necessary (see 



10-18, The reserved word NULL represents a String constant 
containing no characters (|ength B 0), 



Exarro I es 



10-19, The 
r eau I red I nput 
right-hand column! 



eft hand co I umn I 
format to ofata 



INPUT 

"THIS IS A STRING" 
"WHAT DOES ""FERNDOK"" MEAN?" 
"THIS IS HOW YOU TYPE A """ 
"""THIS IS A QUOTED STRING""" 

H M 

NULL 



n the table that follows gives the 
tain the strings given in the 



RESULT 

THIS IS A STRING 
WHAT DOES "FERNDOK" MEAN? 
THIS IS HOW YOU TYPE A " 
"THIS IS A QUOTED STRING" 



LENGTH 

16 
25 

24 
25 
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10-20, The scanning algorithm Is altered somewhat If the String 
Is being used as a macro body definition (see USE OF DEFINE, 
12-0), 



Comments 



10-21, If the scanner detects the Identifier COMMENT, all 
characters up to and Including the next semicolon (J) will be 
ignored, A comment may appear anywhere as long as the word 



COMMENT 
course) i 



Is properly delimited (not 



n 



a String constant of 



10-22, A string constant appearing Just before a statement a 
has the effect of a comment, 



so 
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SECTION 11 
EXECUTION TIME ROUTINES 



GENERAL 
Scope 

11-1. A large set of •ore-dec I a red* built-in procedures and 
functions have been compiled Into a library permanently resident 
on the system disk area (L IBSA I , RELC1, 33 ) . The library also 
contains programs for managing storage allocation and 
initialization, and for certain String functions, If a user calls 
one of these procedures a request Is automatically made to the 
loader to Include the procedure, and any other routines It might 
need* In the core Image, These routines provide 
(I/O) facilities, arithmetic-String conversion 
array-handling procedures and miscellaneous other 
f unct I ons , 



nput/output 
facl I [ties, 
I nterest I ng 



11-2, The 
sequences and 



remainder of this section 
functions of these routines. 



descr I bes the ca I I I ng 



Notations I Conventions 

11-3, A short-hand Is used In these descriptions for specifying 
the types (If any) of the execution-time routines and of their 
parameters, Before the description of each routine there Is a 
samp I e call of the form 



VALUE * FUNCTION ( ARG1, ARG2, 



ARGn ) 



If VALUE Is omitted, the procedure Is an untyped one, and may only 
be called at statement level (Procedure Statements, 6-2), 
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11-4, The types of VALUE and the arguments may be determined 
using the following scheme! 

1) If M characters surround the sample Identifier (wh| c h Is 
usually mnemonic In nature) a String argument Is expected, 
Otherwise the argument Is Integer or Real, If It Is 
Important which of the types Integer or Real must be 
Presented, It will be made clear |n the description of the 
function, Otherwise the compiler assumes Integer arguments 
(for those functions which are predec I ared) , The user may 
Pass Real arguments to these routines (WORDOUT* for example) 
by re-declarlng them in the blocks In which the Real 
arguments are desired, 

2) If the <? character precedes the sample Identifier, the 
argument will be called by reference, Otherwise It Is a 
value parameter, 



Ex amp I e 
11-5. 

"RESULT" + SCAN < <3>"S0URCE", BREAK. TABLE, 0BRCHAR) 

Is a predec lared procedure with the Implicit declaration! 

EXTERNAL STRING PROCEDURE SCAN (REFERENCE STRING SOURCE? 

INTEGER BREAK TABLE; 
REFERENCE INTEGER BRCHARJJ 

I/O ROUTINES 



Qqsd 



Form: 

11-6. OPEN(CHANNEL, "DEVICE", MODE, NUMBER OF INPUT BUFFERS, 
NUMBER_0F_0UTPUT_3UFFERS,*C0UNT # *BRCHAR,»E0F)j 
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Func 1 1 on 5 

11-7, SAIL Inout/output operates at a very low level In the 
following sense: the operations necessary to obtain devices, open and 
close files, etc,# are almost direct translations Into a functional 
notation of the system calls used In assembly language. OPEN Is used 
to associate a channel number (0 to '17) with a device* to determine 
the data mode of the I/O to occur on this channel (character mode# 
binary mode, dump mode# etci)# to specify storage requirements for 
the data buffers used In the operatlonsi and to provide the system 
with Information to be used for Input operations, 



CHANNEL Is a user -p r ov | ded channel number which will be used In 
subseauent I/O operations to Identify the device, CHANNEL 
may range from to 15 ('17), Needless to say, onjy one 
device may be active on a given channel at one tlme t 

DEVICE must be a String (I.e. "TTY", "DATA") which Is recognizable 
by the system as a physical or logical device name, The 
TTY will be opened on|y once ( The effect of subsequent 
OPENS (on different channels) Is to equate all channels 
mentioned by the user to that mentioned In the first OPEN 
for the TTY, Be sure to release this first channel last, 



MODE 



s the data mode for the I/O operation, MODE wl|| always 
work for characters ( see Input, 11-41 and Out, 11-46), 
Modes 8 ('10) and 15 ('17) are applicable for binary and 
dump-mode operations using the functions WORDIN, WORDOUT, 
ARRYIN, or ARRYOUT (see Wordin, 11-49 and following), For 
other data modesi see CMoorer}. 



NUMBER < _oF<lNPUT/OUTPUT)_BUFFERS specifies the number of buffers to be 
reserved for the I/O operations (see [MoorerU for details). 
At least one buffer must be specified for Input If any 
Input is to be done In modes other than '17; similarly for 
output, If data Is only going one direction* the other 
buffer specification should be 0. Two buyers give 
reasonable performance for most devices (1 is sufficient 
for a TTY, more are reaulred for DSK If rapid operation is 
des i red) , 



SAILON NO, 57 



SAIL 



.11-4 



11-8, The remaining arguments are applicable only for INPUT 
(String Input), They will be Ignored for any other operations 
(although their values may b« changed by the Open function), 

COUNT designates a variable which will contain the maximum number 
of characters to be read from "DEVICE" In a given INPUT 
call (see Jnput, 11-41, Breakset, 11-23), Fewer characters 
may be read If a break character Is encountered or If an 
end of fl|e Is detected, The count should be a Variable or 
constant (not an expression), since Its address Is stored, 
and the temporary storage for an expression may be re-used, 

8RCHAR designates a variable Into which the break character (see 
INPUT and BREAKSET again) will be stored, This variable 
can be tested to determine which of many possible 
characters terminated the read operation, 



EOF 



designates a variable to be used for two purposes: 



1) 



If EOF Is when OPEN Is called, a SAIL error message 
will be Invoked If the device Is not avallabl e or the 
channel Is already open, The user will be given the 
options of retrying or terminating the operation, If 
EOF Is non-zero when OPEN Is called, It will be set to 
if the OPEN Is successful, Otherwise It will not be 
changed, In this case (EOF non-zero on entry) control 
will be returned to the user, This flag may then be 
tested , 



2) 



EOF will be made non-zero (TRUE) 
condition Is detected during any 
It will be 21 (FALSE) on return to 
Subsequent Inputs after an EOF 
non-zero values In EOF and a nu| 



INPUT, For ARRYIN , a 
c a II after end of f I I e 



Is returned 
Is detected, 



I f an end of file 

SAIL Input operation, 

the user otherwise, 

return wj | | return 

String result for 

as the value of the 
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Assembly Language Approx I mat i on to OPEN 



11-9, 



GETIN: 



DONE: 



OHEOJ 
IHEDi 



INI T c H ANNEL, MODE 

SIXBIT /DEVICE/ 

XWD OHEOilHED 

JRST <hand|e error condltlon> 

JUMPE <NUMBER. OF. OUTPUT. BUFFERS>, GETIN 

<al locate buffer space> 

OUTBUF CHANNEL, NUMBER OF OUTPUT BUFFERS 

JUMPE <NUMBER_OF_INPUT.BUFFERS>,DONE 

<a I locate buffer space> 

INBUF CHANNEL, NUMBER. OF. INPUT. BUFFERS 

<mark channel open -- jnternal bookkeepjng> 

< r etu r n> 



BLOCK 
B L OC K 



QlQSfii..QlQSlDi..ClQSQ 



Form! 

11-10, 

CLOSE ( CHANNEL > 
CLOSIN ( CHANNEL > 
CLOSO ( CHANNEL ) 

Function? 

11-101 The Input (CLOSIN) or output (CLOSO) side of the specified 
channel Is closed! all output Is forced out (CLOSQ); the current file 
n a me Is forgotten. However the device Is still active* no OPEN need 
be done again before the next Input/output operation, No INPUT, OUT, 
etc. m a y be given to a directory device until an ENTER, LOOKUP* or 
RENAME has been issued for the channel, 



11-11, CLOSE Is eaulvalent 
CLOSO for the channel, 



to the execution of both CLOSIN and 
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Ssicbao 



Form! 
11-12. 



VALUE * G£ TCHAN J 



F u n c 1 1 o n ' 

11-13, The number of some channel not currently open Is returned. 
-1 Is returned Is all channels are busy, 



Bslsass 



Form? 
11-14, 



RELEASE ( CHANNEL ); 



Function* 

11-15, If an OPEN has been executed for this channel $ a CLOSE Is 
now executed for It, The device Is dissociated from the channel and 
returned to the resource pool (unless It has been assigned by the 
monitor ASSIGN command), No I/O operation may refer to this channel 
until another OPEN denoting It has been executed, 

11-16, If you have opened more than one channel for th« device 
"TTY% be sure to perform RELEASE'S for these channels In the Inverse 
order from that In which they were opened (see Open, 11-6) , 



11-17, Release is always valid, If the channel mentioned Is not 
currently open, the command Is slmp|y Ignored, 
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l8SkUBj.-£o£fir 



form l 



11-18, 

LOOKUP ( CH A NNEL 

ENTER < CHANNEL 



, "FILE" 
"FILE" 



»flag ); 



Function* 

11-19, Before Input or output ooeratjons may be performed for a 
djrectory device (DECtape or DSK) a file name must be associated with 
the channel on which the device has been opened (see Open, 11-6), 
LOOKUP names a file which Is to be read, ENTER names a file which Is 
to be created or extended (see [Moorer}), Both operations are valid 
even If no filename Is really necessary. It Is recommended that an 
ENTER be performed after every OPEN of an output device so that 
output not normally directed to the DSK can be directed there for 
later processing If desired. The format for a file name string Is 



or 



NAME , 
NAME, EXT , 
NAMECP.PN3 , 
NAME.EXTCPiPN] 



(see CMoorer] for the meaning of these th 
If you do not Immediately understand)! 



ngs 



A|l characters are converted to SIXBIT by subtracting octal '40 from 
them. Lower c ase letters are first converted to upper c ase « SAIL Is 
not as choosy about the characters It a||ows as PIP and other 
oroce ss or s are, Any character which l s not "."> 
will be converted and oassed on, Up to 6 characters 
from EXT* P# or PN will be converted -- the rest are 



",", "C"» or M 3" 
from NAME, 3 
Ignored, 



11-20. If the LOOKUP or ENTER operation falls (see CMoorer]) then 
variable FLAG may be examined to determine the cause, The left half 
of FLAG w||| be set to '777777 (F|ag has the logical value TRUE), 
The right h a lf will contain the code returned by the system giving 
the cause of the failure. 



11-21, 
(FALSE), 



If the LOOKUP or ENTER succeeds, FLAG w||| be set to zero 
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Form! 
11-22, 



RENAME ( CHANNEL , "FILE-SPEC" , PROTECTION , frFLAG )} 



Funct Ion: 

11-23, The file open on CHANNEL Is renamed to FILE. SPEC (a NULL 
flle-naire will delete the file) with read/write protection as 
speckled In PROTECTION (nine bits, described In the t Imt-shar I no 
manual). FLAG Is set as In LOOKUP and ENTER. 



gneafesei 



F o r m ' 
11-23. 



BREAKSET( TABLE, "BREAK_CHARS» , MODE); 



Funct I on J 



ng features of 
existence of 



11-24, Character Input/output Is done using the Str 
SAIL. In fact, I/O Is the chief justification for the 
strings In the language, 

String Input presents a problem not present In String output, 
The length of an output string can be used to determine the number of 
characters written, However It Is often awkward to require an 
absolute count for Input, Quite often one would like to terminate 
Input, or "break", when one of a specified set of characters Is 
encountered In the Input stream, In SAIL, this capability is 
Implemented by means of the BREAKSET, INPUT, TTYIN, and SCAN 
functions, 



11-25, The value of TA8LE may range from 1 to 18, Thus up to 18 

different sets of break specifications may exist at ones, which set 

will be used Is determined by the TABLE parameter In an INPUT or SCAN 
funct I on ca I I , 
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11-26, The function of a given 6REAKSET command depends on the 
MODE, an Integer which Is Interpreted as a r I ght- just I f i ed ASCII 
character whose v a lue Is Intended to be vaguely mnemonic, BREAKSET 
commands can be partitioned Into 3 groups according to mode; 



GROUP 1 -- Break character specifications 
11-27. 



MODE 



FUNCTION 



M T ft 



(by Inclusion) The characters In the 
comprise the set of characters wh 
INPUT (or SCAN), 



BREAK^CHARS St r Ing 
ch will term! nate an 



"X" 



(by exclusion) Only those characters (of the possible 128 
ASCII characters) which are NOT contained In the String 
BREAK_CHARS will terminate an Input when using this 
tab I e , 



"0" 



(Omit) The characters In "BREAK_CHARS" 
(deleted) from the Input string, 



will be oml tted 



11-28, Any "I" or "X M command completely specifies the break 
character set for Its table (|,e,, the table Is reset before these 
characters are stored In It), Neither will destroy the omitted 
character set currently specified for this table, Any "0" command 
completely specifies the set of omitted characters, without altering 
the break characters for the table In auestlon, If a character Is a 
break-character, any role It might play as an omitted character Is 
sacrificed, 



11-29. The second group of MqDEs determines the disposition of 
break characters In the Input stream, The "BREAK.CHARS" argument Is 
Ignored In these commands, and may In fact be NULL? 
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GROUP 2 -- Break character d I sdos 1 1 1 on 
11-30, 



MODE 



FUNCTION 



(Skip -- default mode) After execution of an "S" command 
the break character will not appear either In the 
resultant String or In subsequent INPUTS or SCANS-- the 
character Is "skipped", Its value may be determined 
after the INPUT by examination of the break character 
variable (see Open* 11-6), 



"A" 



(Append) The break character (|f there Is one -- see 
Open, 11-6 and Input, 11-41) Is appended* or 
concatenated to the end of the input string. It will 
not appear again In subsequent inputs. 



H R „ 



(Retain) The break character does not appear In the 
resultant INPUT or SCAN String, but will be the first 
character processed In the next operation referring to 
this input source (file or SCAN String), 



11-31. For disk and tape files using the standard editor format, 
line nurrbers present a special problem, A line number Is a word 
containing 5 ASCII characters representing the number In bits 0-34, 
with a "1" In bit 35, No other words in the file contain 1's In bit 
35, Since String manipulations provide no way for distinguishing 
line nurrbers from other characters, there must be a way to warn the 
user that line numbers are present, or to allow him to ignore them 
ent I re I y , 



11-32, The third group of MoDEs determines the disposition of 
these line numbers, Again, the "BREAK, CHARS" argument Is Ignored: 
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Group 3 -- Line number disposition 
11-33. 



MODE 



FUNCTION 



♦»p«t 



(Pass -- default) Line numbers are treated as any other 
characters, Their Identity Is lost; they simply appear 
I n the r esu 1 1 str I ng , 



♦' N" 



(No numbers) No line number 
follows It In standard f| 
string. They are simply d 



(or the TAB which always 
es) will appear In the result 
scarded , 



(Line no, break) The result String will be terminated 
early If a line number Is encountered, The characters 
comprising the line number and the associated TAB will 
appear as the next 6 characters read or scanned from 
this character source. The user's break character 
variable (see Open, 11-6 and Input, 11-41) will be set 
to -1 to Indicate a line number break, 



"E" 



(lee Erman's very own mode) The result String Is 
terminated on a line number as with »L"# but neither the 
line number nor the TAB following it w||| aPDear In 
subsequent Inputs. The line number word, negated, Is 
returned In the user's (Integer) BRCHAR variable, 



""D M 



(Display) 
Input f 
on the r 
app I I es 
appears 
It off. 



If the TTY Is a DPY, each line number from any 
le will be displayed (along with a page number) 
ght-hand side of the screen. This mode really 
to all input operations after the W D M operand 
n any Breakset call, There Is no way to turn 



11-34, Once a break 
INPUT, TTYIN or SCAN ca I 



table Is set up, It may be referenced 
to control the scanning operation, 



n an 
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Ex amp t © : 

11-35, To delimit a "word" a program might wish to Input 
characters u n tll a bla n k, a TAB, a I I n e feed, a comma, or a semicolon 
Is encountered, Ignoring line numbers, Assume also that carriage 
returns are to be Ignored, and that the break character Is to be 
retained In the character source for the next scanning operation* 




F"Or IT:! 

11-36, 

SETBREAK ( TABLE , "BREaK_CHARS" , "OM I T. CHARS*' , "MODES" ) 

Function; 

11-37. SETBREAK is logically equivalent to the SAIL statement? 



BEGIN "SETBREAK" 
INTEGER I; 

IF LENGTH(OMIT CHARS) > THEN 

BREAKSE?( TABLE, OM I T_CHARS, "0" ) ; 

FOR I-i STEP 1 UNTIL LENGTH ( MODES ) DO 

eREAKSET<TABLE,BREAK_CHARS,MODES[I FOR 1]> 

END "SETBREAK" 
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SAIL 11-13 



Sidbcb 



Form * 
11-38, 



STDBRK ( CHANNEL )* 



P"unct I on' 

11-39. Eighteen breakset tables have been selected as 
representative of the more common Input scanning operations. The 
function STOBRK Initializes the breakset tables by opening the fl|e 
BKTBL,BKTC1,3] on CHANNEL and reading In these tables. The user may 
then reset those tables which he does not like to something he does 
I Ike. 

11-40. The elflhteen tables are described here by giving the 
SETBREAKs which would be required for the user to Initialize them; 



DELIMS - '15 & '12 * '40 & 

Coirrrent carriage return# 
LETTS «- "ABC . , . Habc 
DIGS ♦• "0123456789"; 
SAILID «- LETTSSDIGS; 



'11 
Ine 



& '14, 
feed, space # 



tab, form feed J 



SETBREAK 


: l, 


'12 


SETBREAK 1 


2, 


'12 


SETBREAK 


I 3, 


DEL 


SETBREAK 


> 4, 


SAI 


SETBREAK < 


5, 


SAI 


SETBREAK 1 


6, 


LET 


SETBREAK < 


7, 


DIG 


SETBREAK 1 


, 8, 


DIG 


SETBREAK 


( 9, 


DIG 


SETBREAK < 


,10, 


DIG 


SETBREAK < 


,11, 


DIG 


SETBREAK 1 


,12, 


DIG 


SETBPEAK \ 


,13- 


18, 



, '15, "INS" ); 
, NULL, "INA" ); 
IMS, NULL, "XNR" 
LID, NULL, "INS" 
LID, NULL, "INR" 
TS, NULL, "XNR" 
S, NULL, "XNR" ) 
S, NULL, "INS" ) 
S, NULL, "INR" ) 
S*w+-fr,«, NULL, 
S$«+-0,", NULL, 
S&"*-<*,", NULL, 






) j 



"XNR" 
"INS" 
"INR" 



NULL, NULL, NULL > 
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SAIL ,11-14 



IqquJ 



Form! 
11-41. 



"RESULT" * IWPUTC-CHANNEU 'BREAK. TABLE)? 



Funct Ion? 

11-42, A strlnfl of characters Is obtained for the file open on 
CHANNEL* and Is returned as the result, The INPUT operation Is 
controlled by BREAK.TABLE (.'See Breakset# 11-23) and the reference 
variables BRCHAR* EOF* and COUNT which are provided by the user In 
the OPEN function for this channel (see Open* 11-6), Input may be 
terminated In several ways, The exact reason for termination can be 
obtained by examining BRCHAR and EOF? 
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SAIL 



11-15 



EOF 



BRCHAR 



-1 



End of file occurred while 
a Str I ng conta I n I ng all 
which remained In the file 



read I ng, The r e su It Is 
non-omitted characters 
when INPUT was ca I led, 



<0 



No break characters were encountered. The result 
Is a String of length equal to the current COUNT 
specifications for the CHANNEL (see Open, 11-6), 




>0 



A b-reaK character 

character is stored 

variable, see Openi 11-6) as a 

7 -'bit ASCII value, It may also be 

end of the result String or saved 

depending on the 8REAKSET mode 

11-23) , 



was encountered, The break 

n BRCHAR ( a n INTEGER reference 

r I ght- just I f led 

tacked on to the 

for next t]me » 

(see Breakset, 



11-43, If break table 
termination are end of f 
somewhat faster operating In 



I s spec I f I edi the on I y 
le or COuNj exhaustion, 
th i s mode , 



criteria for 
The rout I ne Is 



Scao 



Forrr: 
11-44, 



"RESULT" - SCAN ( <a"SQURCE H , BREAK.TABLE , 0BRCHAR ) 



SAILON NO, 57 



SAIL 



11-16 



Func t I on ' 



11-45, 



SCAN functions Identically to INPUT with the following 
except I ons s 



1, The source Is not a data file but the String SOURCE, called 
by reference, The String SOURCE Is truncated from the left 
to produce the same effect as one would obtain If SOURCE were 
a data fife, The disposition of the break character Is the 
sarre as It Is for INPUT, 



2. BRCHAR is directly specified as a parameter. INPUT gets Its 
break character variable from a table set up by Open* 11-6, 



3, 



Line number cons I derat I ons are Irrelevant. 



Qui 



Form.' 

11-46, OUT(CHANNEL, "STRING") 

Funct Ion! 

11-46. STRING |s output to the file open on CHANNEL, If the 
device Is a TT Y » the string will be typed Immediately, Buffered mode 
text output is employed for this operation, The data mode specified 
In the OPEN for this channel must be or 1, 



UQQUi 



Form*. 



11-47. 



LINOUT C CHANNEL # NUMBER )J 
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SAIL 



11-17 



Func t j on 5 

11-48, ABS(NUMBER) mod 100,000 is converted to a 5 character ASCII 
string, These characters are placed In a single word In the output 
file designated by CHANNEL with the low-order bit (line-number bit) 
turned on, A tab Is Inserted after the line number. Mode or 1 
must have been specified In the OPEN (Open, 11-6) for the results to 
be anywhere near satisfactory. 



WQIdlD 



Form? 

11-49, VALUE - WORDIN ( CHANNEL ) 



Funct I on * 

11-5??. The next word from the file open on CHANNEL Is returned, A 
Is returned* and EnD_FILE_FLAG (see Open, 11-6) set, when end of 
file Is encountered, This operation is performed In buffered mode or 
dump mode, depending on the mode specification In the OPEN, 



Air-tflQ 



Form? 
11-51. 

Funct ion? 



ARRYIN ( CHANNEL , frLOC , HOW. MANY ); 



11-52, HOW^MANY words are read from the device and file open on 
CHANNEL, and deposited In memory starting at location LOC. 
Buf fered-mode Input is done If MODE (see Open# 11-6) Is '10 or '14. 
Dump-mode Input Is done If MODE Is '16 or '17, Other modes are 
I I legal . 

11-53, If an end of file condition occurs before HOW MANy words 
are read# the EOF variable (see Open* 11-6) Is set to '777777 In Its 
left half. Its right half contains the number of words actually 
read. EOF will be If the full request Is satisfied. 
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SAIL 



11-18 



fcfsidaui 



Form' 
11-54, 



WORD-OUT- ( CHANNEL , VALUE )J 



Funct i on J 

11-55, VALUE Is placed in the output buffer for CHANNEL, An 
OUTPUT Is d.one when the buffer Is full or when a ClOSE or RELEASE Is 
executed for this channel, Dump mode output will be done If dump 
mode Is specified In. the OPEN (see Open, 11-6), 



Ajuyoul 



F o r rr J 
11-56, 



ARRYOUT ( CHANNEL , QlOC. , HGW..MANY )J 



Funct i on * 

11-57. H0W_MANY words are written from memory* starting at 
location LOC, onto the device and file open on channel CHANNEL. The 
valid rrod.es are again '10> '14# '16, and '17, The EOF variable ls» 
of course* unaffected, 



tJiaoa 



Form : 
11-58. 



mtape ( channel # mode >; 
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SAIL 



11-19 



Funct I on J 

11-59, MTAPE Is Ignored unless the device associated with CHANNEL, 
Is a magnetic tape drive. It performs tape actions as follows! 



MODE 



FUNCTION 



"A" 

"B" 

»»ptt 

" R " 
"W M 
"E" 

"U" 



Advance past one tape mark (or file) 

Backspace past one tape mark 

Advance one record 

Backspace one record 

Rewind tape 

Write tape mark 

Rewind and unload 



Form! 

11-60, 

USETI ( CHANNEL , VaLUF )i 

USETO (CHANNEL , VALUE >' 



Uaa$li..ysgiQ 



Funct I on J 

11-61, The corresponding system function 
CMoorer3 ), 



Is car r | ed out ( see 



Forrr ; 



BaallDx-lDilD 



11-62. 

VALUE - REALIN < CHANNEL >; 

VALUE - INTIN ( CHANNEL )J 
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SAIL 11-20 



Funct iop! 

11-63, Number Input may be obtained using the functions REALIN or 
INTIN, depending on whether a Real number or an Integer is required, 
Both functions use the same free field scanner* and take as argument 
a channe I numbe r , 



11-64, Free field scanning works as follows: characters are 
scanned one at a time from the Input channel. Nut I s f I'ne 
numbers, a nd carriage returns a re Ignored. ^hen a digit is scanned It 
Is assumed that this Is a number and the following syntax Is used: 



<number> 



< r ea I number> 



<slgn><real number> 

<declmal number> Kdec Ima I number><exponent> I 
<exponent> 



<dec I ma I number> : : = 



< I nteger> 



<lnteger>|<|nteger>,l<integer>.<|nteger> 
, < I nteger> 

<dlglt>|<lnteger><dlglt> 



<exponent> 

<dl o I t> 

<s I gn> 



; : = <a<s I gn>< I nteger> 
» * s 0|1|2|3|4|5|6|7|8|9 
I : = +|-| <empty> 



11-65, If the digit Is not part of a number an error message will 
be printed and the program will halt, Typing a carriage return will 
cause the Input function to return zero, On lnput t leadfng zeros are 
Ignored, The ten most significant digits are used to form the 
number, A check for overflow and underflow Is made and an error 
message printed If this occurs, When using INTIN any exponent Is 
removed by scaling the Integer number, Rounding Is used In this 
process, AM numbers are accurate to one half of the least 
slglnl f leant bit, 
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SAIL 11-21 



11-66, After scanning the number the last delimiter Is replaced on 
the Input string and Is returned as the break character for the 
channel, If no number Is found* a zero Is returned* and the break 
variable Is set to -II If an end of file Is sensed this Is also 
returned In the approplate channel variable. The maximum character 
count appearing in the OPEN call Is Ignored, 



R9ftl5CaDt-lD$5CaD 



Form 



11-67. 

VALUE - REALSCAN 

^"NUMBER STRING" 



!8"NUMBER STRING" 
pBRCHAR )J 



e»BRCHAR ) I VALUE «- INTSCAN ( 



Funct I on J 

11-68, These functions are Identical In function to REALIN and 
INTIN, Their Inputs, however, are obtained from their NUMBER..STRING 
arguments, These routines replace NUMBER.STRING by a string 
containing a M characters left over ^fter the number has been removed 
from the f r ont , 



l9lfiiyQS-.UQ_EUDCiiQQS 



Form : 



11-69, 

CHaR * INfjHRW; 
CHAR - INfjHRS; 
INCHWl* 



M STR" 

"STR" 
" S T R " 

"STR" 
"STR" 
"STR" 



INCHsL 
INSTR ( 
INSTRL 
INSTRS 
TTYIN ( 



( eFLAG )5 

BRCHAR )J 
( BRCHAR )l 
( G»FLAG , BRCHAR 

TABLE , pBRCHAR 






"STR" - TTYINL ( 
"STR" - TTYINS ( 
OUTCHR ( CHAR )l 
OUTSTR ( "STR" > 
CLRBUFJ 



TABLE 
TABLE 



OBRCHAR ); 
frBRCHAR )>' 
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SAIL 11-22 



Function* 

11-70, Each of the I/O functions uses the TTCALL UUO's to do 
direct TTY I/O, 



INCHRW 
INCHRS 
INCHWL 



INCHSL 
INSTR 

INSTRL 
INSTRS 
TTY IN 

TTYINL 
TTYINS 

OUTCHR 

OUTSTR 
CLRBUF 



waits for a character to be typed and returns that 
cha r act*r't' 

returns *1 if no characters have been typed! otherwise It 
Is INCHRW. 

wal.ts for a line, terminated by a carriage-return and 
line feed (CR-LF) to be typed, It returns as a string 
al I characters up to (not Including) the CR, The L.F Is 
lost, 

returns NULL with FLAG = -l |f no lines have been typed, 
Otherwise |t sets FLAG to and performs INCHWL, 

returns as a string all characters up to, but not 
Including, the first Instance of BRCHAR, The BRCHAR 
Instance Is lost, 

waits for a line to be typed, then performs INSTRt 

Is INCHSL If no lines are wa 1 1 1 ngj INSTRL otherwise, 

uses the break table features described In (BRKs) and 
•Input, 11-41 to return a string and break character, 
Mode M R ,f Is Illegal? line numoer modes are Irrelevant, 
The Input count (see Open# 11*6) Is set at 100, 



waits for a line to be typed, then does TTYIN. 

sets BRCHAR to -1 and returns NULL If no 
waiting, Otherwise It Is TTYINL, 



nes are 



types Its character argument ( r I ght- just I f I ed In an 
I nteger var lab I e ) , 

types Its string argument, 
flushes the Input buffet', 
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STRING MANIPULATION ROUTINES 



LfiDsib 



Form: 
11-71, 



VALUE ♦■ LENGTH < "STRING" ); 



Funct Ion! 

11-72, The number of 7-blt characters In STRING Is returned, This 
function Is normally compiled Into Sa IL programs , The function Is 
provided for other programs If they need It, 



£su 



Form: 
11-73. 



VALUE - EQU < "STRl"i "STR2" ); 



Function! 

11-74, The value of this function Is TRUE If STR1 and STR2 are 
equal In length and have Identically the same characters In them (In 
the same order), The value of EQU Is FALSE otherwise. 



TYPE CONVERSION ROUTINES 



SfiifocoaJ 



Form : 
11-75, 



SETFORMAT ( WIDTH , DIGITS ) ; 
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Funct I on J 

11-76, This function allows specification of a minimum width for 
strings created by the functions CVS, CVQS, CVE, CVF, and CVG (see 
Cvs, 11-80 and following), Jf this number <WIDTH) Is positive, 
enough blanks will be Inserted In front of the resultant string to 
make the entire results at least WIDTH characters long. The sign, If 
any, will appear after the blanks. If WIDTH Is negative, leading 
zeroes will be used In place of blanks, The sign, of course, will 
apoear before the zeroes, This parameter Is Initialized by the 
system to 0, 



11-77, 



In addition, the DIGITS parameter allows one to specify the 



number of digits to appear fol 
created by CVE, CVF, and CVG. Thl 
wrlteups on the functions Cve, 
deta lis. 



lowing the decimal point 

s number Is Initially 7, 

Cvf, Cvg» 11-88 and fo 



I n str I ngs 

See the 

lowing for 



5aifQ£mai 



Forrr! 
11-78, 



GETFORMAT ( PWIDTH , eaDlGlTS ) 



Function: 

11-79, The WIDTH and DIGIT settings specified In the last 
SETF0RM A T call are returned In the appropriate reference parameters, 



£v.s 



F o r m J 

11-80, "A'SCII.STRING" - CVS ( VALUE )J 
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Funct I on * 

11-81, The decimal Integer representation of VALUE Is Produced as 
an ASCII String with leading zeroes omitted (unless WIDTH has been 
set by Setformat, 11-75 to some negative value). "-" will be 
concatenated to the String representing the decimal absolute value of 
VALUE If VALUE Is negative, 



Qy.qs 



Form? 
11-82. 



"ASCII_STRING" - CVOS ( VALUE ); 



Funct I on J 

11-83. The octal Integer representation of VALUE Is produced as an 
AsCn String with leading zeroes omitted (unless WIDTH has been set 
to some negative value by Setformat* 11-75). No "-" w||| be used to 
Indicate negative numbers, For Instancei -5 will be represented as 
"777777777773", 



Cy.ls 



Form: 
11-84. 



"STRING" ♦• CVIS ( ITEM , 0FLAG ) i 



Function'* 

11-85, The print name of ITEM 
print name Is the Identifier used 
provided for Itemvars, FLAG Is 
string Is found, Otherwise It Is 



Is returned as a string, An Item's 
to declare It, Print names are not 
set to FALSE (0) If the appropriate 
set to TRUE (-!)» and You should 



not place great faith In the string result, 
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Qysl 



F o p it. : 
11-86, 



ITEM' *i- CVSI ( "PNAME" , <?>FLAG ) ; 



Function* 

11-87, The Item whose Identifier Is the same as the string 
argument PNAME Is returned and FLAG set to FALSE if such an Item 
exists, Otherwise, something very random Is returned, and FLAG Is 
set to TRUE, 



Cyfii^Syfx.Syg 



Fo rm J 

11-88* 
"STRING" 
VALUE ) ; 



- CVE ( VALUE )r"STRlNG" * cVF < VALUE )i "STRING" * cVG < 



Function? 

11-89, Real number output Is facilitated by means of one of three 
functions CVE,CVG» or CVF, corresponding to the E»G, and F formats of 
FORTRAN IVj Each of these functions takes as argument a real number 
and returns a string, The format of the string Is controlled by 
another function SETFORMAT ( WIDTH, DIGI TS ) < see Setformat* 11-75) 
which Is used to change WIDTH from zero and DIGITS from 7* their 
I n 1 1 la I va I ues, WIDTH specifies the minimum string length, If WIDTH 
Is positive leading blanks will be Inserted and If negative leading 
zero 8 w I • • be I nserted, 
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11-90. The following table Indicates the strings returned for some 
tyolcal numbers, _ Indicates a space and It Is assumed that w"lDTH*"10 
and DIGITS-3, 



CVF 

... ,000 

,001 

..--...010 

.,100 

1,000 

10,000 

_.. 1.00. 000 
_. 1000, 000 

10000,000 

100000,000 
1000000,000 
1000000.000 



CVE 
, 1000-3. 
♦1000-2, 
, 1000-1 

,100 

,10001., 
,10002 
,10003., 
,10004.. 

,10005. 
,10006. 
,10007., 

,10007.. 



CVG 
,1000-3, 
,,1000-2, 

,1000-1 

,100 .-. 

,1,00 

10.0 

100,..-.. 
,,10004_, 

.10005., 
,10006 
,.10007_, 
,10007 



11-91, The first character ahead of the number Is either a b 
or a minus sign, With WIDTH^-10 plus and minus 1 would print as? 



ank 



CVF 


CVE 


CVG 


00001,000 


.0,10001.. 


.01,00 


00001,000 


-0,10001.. 


-01,00 



11-92. All numbers are accurate to one unit 
If DIGITS Is greater than 8# trailing zeros 
than eight* the number Is rounded, 



n the eighth digit, 
are Includedl If less 



Qysit 



Form! 

11-03, "STRING" * CVSTR ( VALUE ) J 
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Function*...... 

11-94, VALUE Is treated as a 5-character left-Justified word full 
of ASCII, the result Is a 5-character long String containing these 
characters, The low order bit of VALUE Is Ignored. 



Qyxsii 



Form? 
11-95. 



"STRING" - CVXSTR ( VALUE ) J 



Function* 

11-96, VALUE Is treated as a 6-character I ef t- just I f led word full 
of SIXBIT, The result Is a 6-character long String containing these 
characters*, converted to ASCII, 



£y.d 



F o r fr, * 
11-97, 



VALUE * CVD ( "ASCII..STRING" )J 



Function* 

ll-98i ASCII_STRING should be a String of decimal ASCII characters 
perhaps preceded by plus and/or minus signs, Characters with ASCII 
values < SPACE ('40) are Ignored preceding the number, Any character 
not a digit will terminate the conversion (with no error Indication), 



The 
the 



resu I t 
number , 



Is the Internal (signed) 36-blt binary representation of 



Qvq 



Forir * 
11-99, 



VALUE * CVO < "ASCI I .STRING" ); 
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Funct I on i 

11-100, This function Is the same as CVD except that the Input 
characters are deemed to represent Octal values, 



Qy.asc 



F o r rr J 
11-101, 



VALUE - CVASC ( "STRING" )l 



Funct I en J 

11-102, This Is the Inverse function for CVSTR, Up to five ASCII 
characters will be fetched from the beginning of STRING and placed 
left-Justified In VALUE, If the String Is less than five characters 
long, the right characters will be padded with null (0) characters. 



Qy.Sl£ 



F o r m J 
11-103, 



VALUE ♦• CVSIX ( "STRING" ) i 



Funct I on 5 

11-104, The Inverse for CyXSTR* this function works the same as 
CVASC except that up to six SIXBIT characters are placed In VALUE, 
The characters from STRING are converted from ASCII to SIXBIT before 
depositing them In VALUE, 



Qyfil 



Form: 
11-105, 



VALUE ♦■ CVFIL ( "F ILE.SPEC" , 3EXTEN , 6»PPN ) J 
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Function^ 

11-106, FILE.SPEC has the same form as a file name specification 
for LOOKUP or ENTER, The SIXBIT for the file name Is returned In 
VALUE, SIXBIT values for the extension and project-programmer 
numbers are returned In the respective reference parameters, Any 
unspecified portions of the FILE. SPEC w|l| result In zero values, 



ARRAY MANIPULATION ROUTINES 



arciDfo. 



Form: 
11-107, 



VALUE «- ARRINFO ( ARRAY , PARAMETER >? 



Function! 

11-108, 

ARRINF0(ARRAY,-1) returns the number of dimensions for the array, 

This number Is negative for String arrays, 

ArrInF0( Array, 0) returns the total size of the array In words, 

ARRINF0( ARRAY, 1 ) returns the lower bound for the first 

d I mens I on . 

ArrinFOC ARRAY, 2) returns the upper bound for the first 

d I mens I on. 

ARRINF0( ARRAY,3) returns the lower bound for the second 

d I mens I on , 



Aicbli 



Form! 
11-109, 



ARRBLT ( 3L0C1 , J&LQC2 , NUM ); 
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Funct I on* 

11-1H3, NUM words are transferred from consecutive 
starting at L0C2 to consecutive locations starting at LOCI, 



I ocat I ons 



AC£$C8D 



Form s 
11-111. 



ARRTRAN ( ARRAY1, ARRAY2 )? 



Funct I en J 

11-112, This function copies Information from ARRAY2 to ARRAYl, 
The transfer starts at the first data word of each arraYi The 
minimum of the sjzes of ^RRAYl and ARRAY2 Is the number of words 
transferred, 



LIBERATION-FROM-SAIL ROUTINES 



Qfidfi 



Forms 
11-113, 



RESULT - CODE ( INSTR , PAODR ) 
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Funct I on I 

11-114, This function Is equivalent to the FAIL statements? 



EXTERNAL .SKIP, 
SETOM .SKIP, 



MOVE 


0, INSTR 


ADDI 


0i<»ADDR 


XCT 





SETHM 


.SKIP, 


RETURN 


(1) 



^DECLARE AS SKIP IN SAIL 
IASSUME SKIP 



; DIDN'T SKIP 



In other words, It executes the Instruction formed by adding the 
address of the ADDR Variable (passed by reference) to the number 
INSTR, Before the operation Is carried out, ACl Is loaded from a 
special cell (Initially 0), ACl Is returned as the result, and also 
nto the special cell after the Instruction Is executed, 
variable .SKIP. (.SKIP, In DDT or FAIL) Is FALSE (0) 
I If the executed Instruction did not sklpj TRUE 
-1) If It did, Declare this variable as 



stored back 
The g I oba I 
after the ca 
(currently 



EXTERNAL INTEGER .SKIP. If you want to use It, 



Sail 



Form.' 
11-115, 



RESULT - CALL ( VALUE , "FUNCTION" ') J 



Function* 

11-116, This function Is equivalent to the FAIL statements! 



EXTERNAL .SKIP. x 

SETOM .SKIP, 

MOVE 1, VALUE 

CALL i#CSIXBIT /FUNCTION/3 

SETHM .SKIP, IDID NOT SKIP 

RETURN (REGISTER 1) 

The .SKIP, variable (.SKIP. In SAIL) Is set as described In the 
previous paragraph (CODE), 
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USfi£8r£ 



Form': 
11-117, 



USERERR ( VALUE , CODE , "MSG" ); 



F unc 1 1 on 

11-118, MSG i 
printed In dec! ma 
"LAST SAIL CALL" 
program the error 



user may 
Is 1 or ? » 
cont I nue . 
permitted. 



type 
a "■ 

If 



s printed on the teletype, If CODE 5 2, VALUE Is 
I on the same line, Then on the next line the 
message Is typed which Indicates where In the user 
occurred, A "?" or "•♦" character Is typed and the 
standard reply (see ERROR MESSAGES, 13-19), If CODE 
will be typed and execution will be allowed to 
t Is 0, a "?" Is typed* and no continuation will be 
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SAIL 



12-1 



SECTION 12 



USE OF DEFINE 



The SAIL DEFINE feature provides a limited macro capability with 
parameter substitution, The formal syntax for DEFINE declarations Is 
given In DECLARATIONS, 3-1, Use of these macros Is described below, 



Def I n I ng Mac ros 



12-1, 



When a macro of the form 



DEFINE MAC(XiY) * "FOR Y-l STEP 1 UNTIL X DO" 

Is seen by the compiler (either at declaration level or statement 
level)* It first associates w|th the "formal parameters" sequential 
Indices (x = l, Y = 2), Then It reads the String constant representing 
the macro body Into string space, substituting for each occurrence of 
a formal parameter the character '177 followed by the character 
representing the Index of this formal parameter, These special 
characters w||| be used to locate the actual parameters when the 
macro Is expanded, The modified macro body Is stored under the name 
of the macro, where it lies dormant until someone mentions It again, 



12-2, In what 
character ( ' 177) 
following It will 
stored as: 



follows, the character " will represent the 

used to identify parameter locations, The number 

always be the parameter Index, The above macro Is 



FOR -2-1 STEP 1 UNTIL "1 DO 



12-3, 



A macro may be re-defined (at statement level) as many times 



as desired, The new macro body replaces the old one, 
follow block structure, so for a macro with the same 
other macro to be a redefinition. It must appear at the 
level as that other definition, 



Macro names 

name as some 

same block 



String Constants In Macro Bodies 

12-4, String constants may be represented in macro bodies, but two 
quote characters (") must be inserted for each one which would be 
necessary If the String constant appeared outside the macro body 
(which after all Is itself a String constant, hence the problem). 
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Using Macros 

12-5» When a macro name (ignore for the moment the possibility of 
parameters) is detected in a file, the body of that macro is 
retrieved and becomes the input to the SAIL scanner untj) the String 
is exhausted; the scanner then returns to the source file for Its 
input, The macro name Itself never maKes It out of the scanner, If» 
while a macro body is providing Input, another macro name Is 
encountered, the original macro body Is put aside until tnfs new 
macro Is exhausted, Nesting may occur to any level; however, ]t will 
be necessary to increase the size of the compiler's DEFINE push down 
stack If nesting gets extremely deep ( see the D switch In Switches, 
13-13), 

Macro Parameters 

12-6, If a macro body has been defined with formal parameters! the 
compiler will look for actual parameters to satisfy them when a macro 
is expanded, Actual parameters follow the macro name, are surrounded 
by parentheses and separated by commas, 

12-7, A macro parameter Is scanned as a String constant, However # 
for convenience, the following special rules apply to the Scahnlng of 
a macro actual parameter? 

1) All blank characters after the left parenthesis are Ignored, 

2) ~ If the first non-blank character Is not the M character! the 

Parameter String will be terminated by a comma or a right 
parenthesis! which will not appear In the parameter, If the 
" character Is found after the first one, It is treated as 
any other text 'character •' 



3) If the first non-blank character Is the " 
Parameter Is scanned using the normal 
constants , 



character, the 
ru I es for str I ng 
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Exarro I e 
12-8. 



but 



MAC(»I","J") is equivalent to MAC(I,J)i 
MAC("J+3" , "X«""A STRING""") 

is eaulvalent to MAC(J+3,X«"A STRING")? 

MAC ("""A STRING""","PROC( I, J)") 



may not be abbreviated* because the meaning of the " character would 
otherwise b.e ambiguous In the first argument, and the commas and 
parentheses need protection In the second. 

Actual Parameter Expansion 

12-9, Tne actual parameter strings are stored |n an ordered I 1st 
Just before the Input stream is switched to the macro body. When one 
of the -^number pairs appears* the Input stream Is swltohed to the 
(number)th actual parameter, Other macros (with or without 
parameters) may appear In these actual parameters without confusing 
the scanner (sic), 



12-10, 



For an actual Parameter to be recognized eventually as a 



String constant, enough " characters must surround It to 
survive on each end when It passes through the scannep 
tjme, To be sure, the Implementation of this feature Is 
that even the authors must resort to trial and error 
comp I letted • things are done\enod\attempted , 



a I I ow one to 
for the last 
so wondrous 
methods when 
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Exarrp I es 
12-11, 



DEFINE TTY*"1», ,SRCs"2", BRK.ON^LFDa'^" ; 

Comment for constant parameters for which 
It Is desirable to Include symbolic names, 
this Is more efficient than assigning the 
parameter values to variables; 

DEFINE TYPE<MSG)= "0UT< TTY, MSG) »' J 

Comment note Inclusion of TTY macro In the 
body of the TYPE macro; 



DEFINE TYPEC(MSG)5 M 0UT<TTY, M "MSG"" )"J 

Comment argument always to be made 
a String constant? 



nto 



DEFINE DEBUGGING * "TRUE", I NP1 ( V8L, WHERE ) * 
"BEGIN 

VBL*INPUT<SRC,8REAK_0N_LFD); 
IF OEBUGGING THEN 

TYPE< W,M,,M,M INPUT TO VBL AT WHERE I S""""SVBL"" ) ; 
END"; Comment (probably); 



Using these definitions, 

INPKSTR, INITIAL READ) expands to? 

BEGIN 

STR*!NPUT<2,2>; 

IF TRUE THEN 

OUT(i,. w I-NPUT TO STR AT INITIAL READ IS "«STR)j 
END; 
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SECTION 13 
COMPILER OPERATION 



COMMAND FORMAT 
Syntax 
13-1. 
<cofrrrand I I ne> 



<b i nary_name> 
< I 1 st I ng_name> 
<source_ I I st> 
<f I I e_spec> 

<f I I e„name> 
<f!|e..ext> 

<proJ„prog> 

<dev I ce_name> 
<sw I tches> 

<unslashed w swjtch„! Ist> 
<slashea.sw|tch.l lst> 



:;= <b I nary_name> < I I st | ng_name> *• 

<source_ I I st> 

; ja <f | |e.soec> 9 

s := <f I le.spec> EXC 

i s * <f I le.spec> 

J »* <tfnpty> 

:.»« i <f I I e.spec> 

; :s <tmpty> 

J :« <f I le.spec> 

JJ* <source. I I st> , <fi|e_spec> 

j:« <f|le.name> <f|le_ext> <proJ.Pro9> 

J{a <dev I ce.nama> <f|le_spec> <sw!tches> 

::s <dev I ce„name> <swltches> 

i :» <legal.s|xbit_|d> 

: js , < I 8gal .s I xb 1 1. id> 

J :s <empty> 

J!s C <legal.3Jxblt.ld> » < I ega I _s ! xb] t. I d> ] 

; :a <empty> 

H« < I ega I .s I xb 1 t_ I d> 

Jis ( <uns I ashed.swi tch_ I I st> ) 

::a <s lashad.swi tch. I I st> 

J i* <ampty> 

j : s <swl tch_spec> 

J :* <uns lashad_swl tch_ M st> <sw f tch_spec> 

; ix / <sw I tch.spee> 

IJ» <3|ashtd. switch. Mst> / <sw I tch_spec> 
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JJ* <vaMd.swltch.name> 

J J* <s|gned.. Integer> <va I I d„sw| tch_name> 

I !■ D 

I i* L 

! !« M 

: i « P 

;:> q 

! I » R 

j :s s 



Semantics 

13-2, All this Is by way of saying that SAIL acoepts commands In 
essential ly the same format accepted oy DEC prcctssors such as MACRO 
and FORTRAN, The binary file name Is the name of the output device 
and file on which the ready to load object program will be written, 
The listing file, If Included, will contain a copy of the source 
files with a header at the top of each page and an octal program 
counter entpy at the head of each line (see Listing Features, 13-13), 
The listing file name Is often omitted (no listing created), The 
source file list specifies a set of user-prepared f I I es which, when 
concatenated, form a valid SAIL program (one outer block), 



13-3, lega I Is t xb 1 1_ I dent I f f e r Is a name which Is acceptable to 
time sharing system as a valid file name, device name, extens 
etc, when Its first six (device, file) or three (extens 
progect-nrogrammer number) are converted from ASCII to S I XB IT, 
more Information about file and device names, see CMoorerD, 



the 
on, 
on. 
For 



13-4, If flle.ext Is omitted from the binary. name, the extension 
for the output file will be ,REL, The default "extension for the 
I 1st Ing f I le Is ,IST, SAR w|l| first try to find source Mies under 
the names given, If this falls, and tne extension Is omitted, the 
same file with a ,SAI extension w||| be tried, 



13-5, If devlce.name Is omitted, DSKj Is assumed, If proj.prog 
omitted, the project-programmer number for the Job Is assumed, 
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13-6, Switches are parameters whjch affect the operation of the 
compiler, a list of switches may appear after any file name, The 
oarameters specified are changed Immediately after the file name 
associated with them Is processed, The meanings of the switches are 
g I ven be I ow, 

13-7, The binary, listing and (first) source file names are 
processed before compilation -- subsequent source names (and their 
switches) are processed whenever an ehd-of-f I I e condition Is detected 
In the current source file, Source files which appear after the one 
containing the outer block's END delimiter are Ignored, 

13-8, Each new line In the command file (or entered from the 
teletype) specifies a separate program compilation. Any number of 
programs can be compiled by the same SAIL core Image, 

13-9, The flle^specc* command causes the compiler to open the 
specified file as the command file, Subsequent commands will come 
from this file, If any of these commands Is flle.specfr, another 
switch will occur, 

13-10, The f!|e_spec! command will cause the specified file to be 
run as the next processor, This program will be started In "RPG 
mode", That Is* It will look on the disk for Its commmands If Its 
standard command file Is there -- otherwise, command control will 
revert to the TTy, The default option for this file name Is ,DMp, 
The default project-programmer number Is CI, 3], The default device, 
of course, I s OSK , 



13-11, For 
see CMoorerJ, 



Information about logging In, running jobs* and so on* 
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Rpg Mode 

13-12, The COMPILE, DEBUG, LOAD, and EXECUTE set of system 
commands mav be used to compile and run SAIL programs. See CMoorerl 
for details, A typical command String to tne system (which will 
p re D ape commands of the fo r m described above and D ass them to SAIL 
(after starting It) might be: 

DEBUG /SAIL RECOG ( -215MRR ) *6EG+PR0CS+RECQG/L 1ST, CMDSCNC1 , DCS 3 

This command will cause the following commands to be placed In a file 
on your area, by the name of QQSAIL.RPG: 

recog, rel, recog r lst(-2l5mrr)*.beg,pr0cs, recog 

cmdscn,.rel*chdscnc1.dcs3 

loader: 



The /SAIL entry may be omitted If all files have a . S A I extension, 
The loader will load the files with DDT or RAID and then start the 
specified debugging program. 
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Sw j tches 

13-13, The following table describes the SAIL parameter switches, 
If the switch letter Is preceded In the table by the D character* a 
dee I ma I number Is expected as an argument, Is the default value, 
The character Indicates that an octal number Is expected for this 
switch, Otherwise the argument Is Ignored, 



ARG 



SWITCH FUNCTION 



For every occurrence of this switch In the command 
line, the amount of space for the push down' stack used 
In expanding macros (see USE OF DEFINE, 12-0) Is 
doubled, Use th|s switch If the compiler Indicates to 
you that this stack has overflowed, This shouldn't 
happen unless you nest DEFINE calls extremely deeply. 



In com 
called 
one) f 
Inltla 
In the 
this p 
va I ue 
p r I n t e 
I Istln 
g I ven 
the L 
non»ne 
LSTOFF 
Into 
I s use 
added 
deleti 
comp I I 
togeth 
swl ten 
these 
addres 
At the 
s I gns 
try I ng 
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or eac 
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d at 
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SAIL 
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SET, 
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ab | e 

<by 

|ue, 

code 

for 
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I n a 
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If 

Is 

of 

put 

RAID 

Is 
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by 
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e L 

h of 

core 

des, 

I nus 

Keep 



Is a number from 1 to 6, This parameter puts the 
compiler In one of several debugging modes, This 
switch Is most useful to compiler fixers, put some of 
the modes are of general Interest, The functions 
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represented by each of these modes are described In 
Debugging modes, 13-14 below, 

Each occurrence of this switch doubles the size of the 
system push down list, It has never been known to 

0V8T f|OW, 

Each occurrence doubles the size of the String push 
down list, No trouble has been encountered here, 
e I ther , 

Each occurrence doubles the size of the compiler's 
parsing and semantic stacks, A long conditional 
statement of the form (IF ,,, THEN t# , ELSE IF .,. 
THEN ,,, ELsE IF ,,, ) has been known to cause these 
stacks to overflow the I r norma I I y allocated sizes, 

The sjze of String space Is Set to D words, String 
space usage Is a function of the number of Identifiers, 
especially macros, declared by the user. In the rare 
case of String space exhaustion, 5000 Is a good first 
number to try, 



Debugging modes 

13-14, Certain versions of the SAIL compiler have a 
facility built Into the Inner loop of the Parser, It |s 
display Information about the current state of the comp 
strategic times, This routine can be In one of severa 
debugging mode Is Initially specified using the M switch 
above, It can be changed by the user as the compilation 
The ir.odes and their functions areas follows: 



debugg I ng 

wl I I Ing to 

Nation a t 

I modes, A 

descr I bed 

progresses , 



1) Just before each code-generator Is called, Its name Is 
displayed on the TT Y along with the top few elements of the 
parse and semantic stacks, If the TTY Is a DPY, one also gets 
the current Input line wjth an arrow underneath Indicating the 
next element to be scanned, If you do not know what to look 
for In the stack, don't use this mode, Compilation may be 
continued by typing the character "P", 



2) 



3) 



No Information Is displayed In this mode. However I 
and asynchronous breaks (see be|ow) can still occur. 



Ine breaks 



Just before each parse production Is compared to the parse 
stack, the name of the production and the other Information 
mentioned above Is presented, Proceed by typing "P", 
Compilation takes forever In this mode. 
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4) 



5) 



6) 



This mode does not cancel any of modes 1, 2, or 3. Howevepi 



puts the 
wait for a 
descr Ibed 
st I I I enab 
of th I ngs , 



It 
debugging routines In a mode wherein they w| | | not 
user go-ahead before proceeding from the displays 
for these modes, Line and asynchronous breaks are 
ed In this mode, and may be used to regain control 



This mode has no very useful application If the TTY Is really a 
TTY, However If It Is secretly a DPY, the current input line 
Is continuously presented along with an arrow showing the 
compiler's progress through It, No user go-ahead Is necessary 
after each presentation, All other modes are cancelled, Line 
and asynchronous breaks are enabled, 

This Is the default mode, No Information Is displayed, The 
debugging routines are completely detached from the compilation 
loop, Line and asynchronous breaks are disabled. The only w#y 
to get any of the Information described above Is to start over, 



13-15, If you have the compiler In a position where It is willing 
to listen to a "P M to oontlnue# you may also type some other things, 
The irost Interesting one Is the "L" command, Typing "L", followed by 
a space, followed by a Dage number (decimal)* followed by a space, 
followed by a 5 character line number, followed by yet another space, 
causes the compiler to remember this page and line number, and to 
stop w|th a Line Qreak message and the Information described above 
Just after the specified line has been read, At this point you m a y 
change modes (see below) or not, as you prefer, and tyoe »»P»» to 
continue, This oommand Is really not too useful unless you are a 
comp I |er f I xer , 



13-16, To change modes while compiling, type any 
Darafrster-M pairs to the debugging interpreter before typing 
go on, 



any number of 
•»P M to 



13-17, To get the compiler's attantlon when It Is operating In 
one of the modes 2, 4, or 5, simply type a carriage return, Very 
shortly the compiler will display an Asynchronous Break message, the 
print line* and some stack elements, Then you may change modes* set 
a lint break, or simply proceed, This Is often useful simply to 
convince yourself that your program Is still being compiled If you 
are running in mode 2, I* you are operating In mode 6, the compiler 
w||| not listen to your plea. Start the compiler In mode 2 If you 
want this feature, but be warned that things will slow down 
considerably (10%?). 
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13-18, Here 1 s an example of a compile string which a user who 
just has to try every be I I and whistle available to him might type to 
compile a file named NULL? 

COMPILE /LIST /SAIL NULL (RR-2L1M4M5000S ) 

The switch Information contained In parentheses will be sent 
unchanged to SAIL, Note the convention which allows one set of 
parentheses enclosing a myriad of switches to replace a "/" character 
Inserted before each one, This string tells the compiler to compile 
NULL using parse and semantic stacks four times larger than usual 
(RR). A listing file Is to be made which assumes that RAID will be 
loaded and NULL will be loaded right after RAID (-2L), The user 
wants to see the stack and Input line just before every code 
generating routine Is called <1M>» but he does not want the compiler 
to stop after each display (4M), His program Is big enough to need 
5000 words of String space (5000S), 

ERROR MESSAGES 

13-19, If the compiler detects a syntax or semantic error while 
compiling a program It will provide the user with the following 
Information; 

1) The error message, These are English phrases or sentences 
which attempt to diagnose the problem, If a message Is 
vague It Is because no specific test for the error has been 
m a de and a catchall routine detected It, If the message 
begins with the word "DRYROT" it means that there js a bug 
in the compiler which some strangeness In your program was 
able to tickle, See a system programmer about this, 

2) The current Input line* Page and line number* along with 
the text of the line being scanned* are typed. If the 
console device Is a TTY* a line f • e d will occur at the oolnt 
In the line Just following the last program element scanned. 
If the device Is a DRY* the line will be displayed with a 
vertical arrow below the scan position. The absence of a 
position indicator means that a macro (DEFINE) body Is being 
expanded. 

3) "GALLED FROM xxxxx", This Is a message of value to compiler 
debuggers only, 

4) A Question mark or right-arrow («•). 
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13-20, 



Respond to tht question mark In any of the following ways: 



CR Try to continue compilation, A message will be printed and 
the seauence reentered If recovery Is Impossible (If a "?" 
was typed Instead of a ,f * w >, 

LF Continue and don't stop from now on, The program wl|| not 
stop If It can help It, Messages will fly by (at an 
unreadable rate on OPYs) until the compilation Is complete 
or an error occurs from which no recovery Is possible. In 
the latter case the Question sequence Is reentered, 

S Restart, Sometimes useful If you are debugging the compiler 
(or If you were compiling the wrong file), The program Is 
restarted, accepting compilation commands from the TTy, 



Exit, All files are closed in 
program exits to the system, 



their current state, The 



Look at stack, This enters a part of the debugging routine 
(see Debugging modes# 13-14 above) to allow examination of 
the parse and semantic stacks, The compiler will lead you 
by the hand through these procedures, 

Edit, This command must be followed by a carriage return, 
or a space, a filename (In standard format, assumes ^SK) and 
a carriage return, If the filename Is missing, the SOS 
editor (see CSavltzky^) Is started, given Instructions to 
ad'* * h e current source fl'a an^ to mov e th Q ed |t,n 9 pointer 
to the current page and line number, If a f||e name Is 
present, that file Is edited starting at the beginning, 



Enter DDT or RAJD If one Is loaded* 
DDT° and ra-Questlon, 



Otherwise* type "NO 



13-21, Any other character w||| cause the error routines to soew 
forth a summary o* this table a n d re-enter the question sequence, 



SAILON NO, 57 



SAIL 13-10- 



STORAGE ALLOCATION 



13-22, 
oush down 
with a st 
sett I nqs 
desired, t 
by REE ( re 
Type Y to 
character 
are t All 
T y d I n g a I 
used for 
awa 1 1 i ng c 



The compiler dynamically allocates wo 
lists* symbol tab|es# string spaces* 
andard allocation adequate for mo 
given above may be used to change 
hese al locations may also be changed 
enter), The compiler will ask you If 
allocate, N to use the standard alloc 
to us© the standard allocations a 
entries will be prompted, Numbers 
t*mode Instead of CR will cause sta 
the remaining values, The compll 
ommand Input from the teletype, 



rk Ing storage for Its 
etc. It normal |y runs 
st programs, s*lten 
these a I locations, If 
by typ Ing *C, fol lowed 
you want to al locate, 
atlon* and any other 
nd pr Int out what they 
should be decimal , 
ndard a I location to b» 
er will then start, 
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SECTION 14 
PROGRAM OPERATION 



LOADING AND STARTING SAIL PROGRAMS 
Loading 

14-1, Load the main program, any separately compiled procedure 
files (see Separately Compiled Procedures, 15-7), any assembly 
language (see PROCEDURE IMPLEMENTATION! 16-46) or Fortran Procedures, 
and DDt or R.aI d If desired, This Is all automatic If you use the 
LOAD or OEBUG or EXECUTE system commands (see CMoorerD), Any of the 
SAIL execution time routines requested by your program w| | I be 
searched out and loaded automatically from LIBSAI , RELC1, 33 , 



Space Allocation, Normal Operation 



14-2, If you can run with 
your program, First the SAIL 
strings (except constants) w 
arrays will be cleared, Then 
statement In the outer block 
entered, I ts arrays will 
are not cleared, The 
b I ock , 



standard space a I I ocat I on, s Imp I y start 
storage areas will be Initialized, A|| 
II be cleared to NULL. AM complled-ln 
execution will begin with the first 
of your main program. As each block Is 
be cleared as they are allocated. Variables 
program w}|| exit when It leaves this outer 



14-3, If more push down stack space (string, system, array) or 
string space Is needed, type REE to the monitor and answer allocation 
questions as described In STORAGE ALLOCATION, 13-22, You can find 
out what the standard allocations are by typing a space after the 
system types ALLOC? at you, Arrays, Leap spaces and I/O buffers are 
allocated dyncam I ca I I y, obtaining more storage from the operating 
System If necessary. See Storage Allocation Routines, 16-5 and 
following for ways of cooperating w|th SAIL with respect to storage 
allocation If you write machine language subroutines, 
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ERROR MESSAGES 

14-4; Error messages have nearly the same format as those from the 
compiler- (ERRoR MESSAGES, 13-19), They Indicate that 

1) an array subscript has overflowed; 

2) a case Index Is out of rangeJ 

3) a stack has overflowed while allocating spac© for a 
recursive procedure; or 

4) one of the execution time routines has detected an error, 

14-5. The "CALLED FROM" address I dent I f I es, I n the first 3 cases, 
the location In the user program where the error occurred I the "LAST 
SAIL CALL AT" address gives the location of the faulty call on the 
SAIL routine for tyoe 4 messages. 

14-6. All the replies to error messages described In ERROR 
MESSAGES, 13-19 are valid except the "L" option, If no file name Is 
typed with the " E M option, the editor re-opens the last file 
mentioned In the EDIT system command, 

14-7, The function USERERR may be used to activate the SAIL error 
message mechanism, See Usererr, 11-117 for details, 



DEBUGGING 

14-8. The code output for SAIL programs is designed to b« fairly 
easy to understand when examined using the DDT debugging languafl* or 
Stanford's display oriented RAID program, A knowledge of ■ tht 
debugger you have chosen Is reoulred before this section will bt 
comprehensible, 
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Symbo I 




14-10, Only the first six non-blank characters of a block name or 
Identifier w I I I be used In forming a DDRAID symbol. If t w o 
Identifiers In the same block have the same first six characters the 
program using them will not get confused* but the user might when 
trying to locate these Identifiers, 

14-11, To obtain symbols for the execution time routines, load 
RUNTIM,REIC1,33 with your other files, The routines will be loaded 
fronr this file, which Includes symbols* Instead of from the LIBSAI 
library, which does not, vour program will be several thousand words 
longer when this file Is used, 

Blocks 

14-12, A|| block names and Identifiers used as variables* 
procedures or labels In a given (main or separate procedure) program 
are available for tyoout when that program Is "open" (NAMES} has been 
typed), To refer to a symbol* type BL0CK_NAME«SYMBOL/ (; for RAID), 
The olock name may be omitted If you have "opened" the block with 
BLOCK. NAME$S, The symbol table Is block-structured only to the 
extent that block names have appeared In the source program, For 
Instance* In the program 



BEGIN "NAME1" 
INTEGER I, J; 

BEGIN 

INTEGER I,K; 

, i • 

end; 

END "iMAMEl" 
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the syrrbols J# K, and both symbols I are cons 

belong In the same blocK, Therefore confusion 

respect to I, This approach was taken. to avo 

generating meaningless block names for DDRAID when 

the source program, A compound statement will be considered by 

DDRAIO to be a block |f It has a name. 



dered by OORAID 

can result w 

d the necessity 

none were given 



to 
th 
of 
In 



Sa I I *-Generated Symbols 

14-13, Some extra symbols are generated by SAIL and w 
when you are using DDRAID, They are? 



show up 



ACS 



OPS 



ARRAYS 



BLOCKS 



START 



The accumulators P (system push down list pointer)* SP 
(string push down pointer)/ and TEMP (commonly used 
temporary) are given symbolic names, Currently Pa'17> 
SP='16, TEMP='14, 

The op codes for the UUOs ERR,, ERROR,, FIX, FLOAT, PDLOV, 
and ARERR (subscript overflow UUO) are Included to make 
these easy to detect In the code, 



For each array declared In 
arrays)* -the fixed address of 
symbolic name, This name 
characters of the array name 



the outer block (built-in 
Its first element Is given a 
Is constructed from the 
(up to the first 5) followed 
by a period, For Instance, the first element of array CHT 
Is CHT, ; the first element of PDQaRR Is PQQAR.J The last 
semicolon was really a period. This dotted symbol points 
to the second word of the first descriptor for String 
Arrays (see STRINGS, 16-14, ARRAY IMPLEMENTATION, 16-33), 



The first word of the first executable statement 
block or compound statement which has been given 
given a label created In the same way as those for 
above. This label cannot be gone to In 
program, It causes no program Inefficiency, 
points at the first word of the compound ta 1 
first word of code generated for the block 
procedure or array dec I arat I on code) , 



of every 

a na^e Is 

arrays 

the souroe 

This label 

-- not the 

(skips any 



The first word of code generated for any given program 
given the name M S, H , 
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Warn i n g s 



Hang i net Store 



14-14, 



Quite often an assignment statement results only In the 



loading of a PDP-10 accumulator, 
core location Identified with 
necessary, Confusion can result 
then examine the core' varlab 
Immediately surrounding code to 
variables are still in ACs, 



This AC will not be stored Into the 
the name of the variable until It Is 
If you set a breakpoint somewhere, 
es of Interest without checking the 
be sure none of the interesting 



Long Names 



14-15, Since only the first 6 characters 
available, it Is wise to declare symbols which w 
DDRAlO in such a way that these six characters w 

them. 



of an Identifier are 
I I be examined by 
I I un I que I y I dent I f y 
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SECTION 15 
PROGRAM STRUCTURE 



THE SAIL CORE IMAGE (REQUIRED) 

15-1. The following things must be present In a core Image 
containing SA IL*comp j | ed flies* 

Ma i n Program 

15-2. A SAIL "main program's or an assembly language program which 
looks an awful lot like a SAIL main program, must be present If any 
SAIL-comp I I ed files arti A SAIL source program which has no 
entry-spec I f Icat Ion as Its first element satisfies this requirement, 
The first statement executed after storage allocation Is complete 
will pe Its first statement, Tnere should be no more than one main 
program per core Image, 



15-3. The salient characteristics of a main program are; 

1) Its ,REL file has a starting address block (the loader will 
tell the time sh a rlng system to start the program at this 
address) , 

2) Its first task Is to determine whether the program was 
started In RPG mode. If so, the global variable RPGSW Is 
set to TRUEi otherwise FALSE, 

3) Its next task is to call the storage allocator with 
JSR SAILOR, 

4) It should then proceed with the main control of the Program, 

4) It should execute a POPJ 17,0 when It Is all done, 

5) It may not execute any UUOs except SAIL UUOs (nor alter 
permanently the UUO locations 40 and 41) without great 
caution, 
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Storage Allocation, Basic Utilities 



15-4. There Is a set of 
establish the operating 
routines allocate storage, 
some of SAIL'S Internal 



routines which must always be loaded to 
environment for SAIL programs, These 
set up push down pointers, and Initialize 
tables, Other routines Included In this 
package are a String garbage collector (see STRINGS, 16-14) and 
several basic routines which many others call upon, 



15-5, These programs 
If the JSR SAILOR I 
Is present In the 
ma I n programs) , 



grams will be loaded automatically from LIBSAI.REL 

nstructlon, where SAILOR Is an external request, 

main program (this Is automatic for SA lL-comp I I ed 



Other Execution -Time Routines 

15-6, All I/O, Str I ng-hand I I ng> etc. is done by routines which 
understand about gAJL, Programs requiring these services should 
probably use these routines, SAlL-complled files automatically 
reauest these blessed routines from H8SAI.REL. 



OPTIONAL ADDITIONS 



Separate 




An entry specification (see Entry Specifications* 2*1) must 
be the first Item In th§ program (preceding even the BEGIN 
for Its outer block), The list of Identifiers will be used 
to form an Entry Block for the loader, Therefore the file 
may be placed |n a user library If desired, The format of 
libraries Is described In CWelher}. The I dent I f Jer (s) 
appearing in the entry list may be any valid Identifiers, 
but usually they w}i| be the names of the procedures 
contained In the file, No starting address will be Issued 
for a program containing an Entry Specification, No 
checking Is done to see If entry Identifiers are ever really 
declared In the body of the program, 
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2) 



3) 



4) 



5) 



from the main program 



Since no starting address Is present for this file* entry to 
code within It may only be to the procedures |t contains; 
the statements In the outer blocks If any, can never be 
executed, All procedures to be called 
(or procedures In other files) must 
INTERNAL attribute when they are 
procedure declarations with headings 
the actual declarations must appear In 
which call these procedures, 



be qua lifted 
dec I ared, 
I dent leal to 
a I I those 



with the 
Externa I 
those of 
Programs 



These Internal procedures must be uniquely Identifiable by 
the first six characters of their Identifiers, in general* 
any two Internal procedure names (or any other Internal 
variables In the same core Image) with the same first six 
characters will cause Incorrect linkages when the Programs 
are loaded, 

Any variables (simple or array) which appear In the outer 
block of a Separately Compiled Procedure program will be 
global to the procedures In this program, but not available 
to the main program (unless they are connected by 
Internal/External declarations -- see below), Arithmetic 
arrays In these outer blocks w||| always be zero when the 
program Is first loaded, but will never be cleared as others 
are (see Space Allocation, Normal Operation, 14-2) -» String 
arrays are always cleared, 



Any variable, procedure or label may 
INTERNAL or EXTERNAL In Its declarat 



contain the attribute 
on ( ITEMS may not) , 



15-8, The INTERNAL attribute does not affect the storage 
a ss lcinment of the entity It r ep P e s ents* no P does It have any effect 
on the behavior of the entity (or the scope of Its identifier) In the 
file wherein it appears, However, Its address and (the first six 
characters of) Its name are made available to the loader for 
satisfying External requests, 



15-9, No space Is ever allocated for an External declaration, 
Instead, a list of references to each External Identifier Is made by 
the compiler, This list is passed to the loader along with the first 
six characters of the Identifier name, When an Internal name 
matching It Is found during loading, its associated address Is placed 
In each of the Instructions mentioned on the list, No program 
Inefficiency at all results from Externa I /Interna I linkages (belay 
that -- references to External arrays are sometimes more 
I nef f I c lent) , 
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15-10, The entity finally represented by an External Identifier Is 
only accessible within the scope of the External declaration, 
Transfers to external labels are always allowed* but If things work 
correctly when this Is done It Is only by sheer luck that they do, 

Fortran Procedures 

15-11, For a program written In DEC FORTRAN IV to run In the SAIL 
environment, the following restrictions must be observed? 

1) It mus.t be a SUBROUTINE or FUNCTION, not a main program, 

2) It must not execute any FORTRAN I/O calls. The UUO 
structures of the two languages are not compatable, 

3) It must be declared as a Fortran Procedure (see Fortran 
Procedures, 6-12) In the SAIL program which calls jt, 

The type bits required In the argument addresses for Fortran 
arguments are passed correctly to these routines, 

The SAIL compiler will not produce a procedure to be called from 

FORTRAN, 

Assembly Language Procedures 

15-12, The Implementation section contains the following 
paragraphs to aid In writing assembly language proceduresl user 
Table, 16-1, STRINGS, 16-14, ARRAY IMPLEMENTATION, 16-33, Storage 
Allocation Routines, 16-5, and PROCEDURE IMPLEMENTATION, 16-46. In 
addition, the following rules should be observed*. 

1) The ENTRY, INTERNAL, and EXTERNAL pseudo-ops should be used 
to obtain linkages for procedure names and "global" 
Identifiers (remember that only s I x characters are used for 
these linkage names, 



2) Accumulators P (currently '17) and SP C16) should be 
preserved over function calls, P may be used as a push*down 
pointer for arithmetic values and return addresses, SP Is 
the string stack pointer. String results are returned on 
this stack, Arithmetic results are returned In AC 1 (see 

• PROCEDURE IMPLEMENTATION, 16-46), 

3) The UUO locations 40 and 41 should be preserved. 
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4) JOBFF must be set 
before OUTBJF 
per I od | ca I I y set 



by the user to some free 
or IN8UF UUOs are executed, 
by SAIL to an invalid address, 



buffer area 
JOBFF Is 



5) The CORE UUO may be used to Increase memory size, but never 
to decrease It, Never attempt to use directly any of the 
memory SDace currently assigned to the Job (except that 
explicitly Provided In the routine), Release all memory 
obtained In this way before returning to SAIL routines, See 
Storage Allocation Routines, 16-5 for Instructions on 
obtaining core from the SAIL memory allocators (a much 
safer, and sometimes faster way), 



Others 



15-13, There 

SAlL-corroat I b I e 
very nature, 



are no 
programs, 
conta I ns 



difficult to reso I ve, If 



other known processors which will produce 
In particular, the LISP 1,6 system* by its 
storage allocation conflicts which are 

a great need for this kind of compatibility 



develops It can be provided . 
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SECTION 16 
IMPLEMENTATION INFORMATION 



STORAGE LAYOUT 
User Table 

16-1, All workinq storage areas for a SA IL-generated Program and 
Its execution-time routines are dynamically allocated -- some just 
once when the program Is first started* some as more space Is needed, 

16-2, The first area allocated Is a several hundred word table 
which contains Information about the remaining storage areas and 
global variables for the execution-time routines, A single internal 
variable, GQGTAB, -w ) I t always contain a pointer to this table, The 
execut I on-t J me routines make all accesses to storage through this 
table or through user-supplied addresses, They would therefore be 
totally re-entrant If the GOGTAB variable were allowed to vary over 
several users, 

16-3. • A FAIL source file containing symbolic Indices for the user 
table, as well as some useful MACROS, OPDEFs, and accumulator 
definitions Is available to provide accessab I I I ty to this table for 
assembly language routines, This file may be concatenated to a FAIL 
program before assembly, 

16-4, Most execution-time routines load the address contained in 
GOGTAB Into the accumulator USER (currently '15) In order to Index 
the user taole, Thus In what follows, symbolic Index XX Into this 
table will be listed as XX(USER). 



Storage Allocation Routines 

16-5. SAIL makes all requests 
CORGET. CORRELi CORINC, and CANINC, 
the following paragraphs, The AG's 
2 and 3, respectively, All core 
17, rout I ne, 



for storage through the routines 

These routines are described In 

TH I s and si 2 are currently set to 

routines are called with PUsHJ 



SAILON NO, 57 



SAIL 16-2 



Gorget 

16-6, Corbet Is called with the desired size of a block of storage 

In register SI 2 , It returns the address of the new block In THIS, 

No other accumulators are altered, Normally the function sklos on 

return, Jt does not skip If Insufficient core Is availabl 8 to grant 

the request, The address returned Is that of the first free data 
word (DATA be I ow) , 



16-7. 



A SAIL core block has the following form! 



HEAD: ••LAST, ,-*NEXT ;whan not in use (free list links) 

Slit }END-HEAD+1, negated when block Is In use 

DATA: BLOCK SlHE-3 Java! labia to user -- sometimes a few more 

; words than requested will be contained 

l In the block 
END: USEBIT, ,*HEaD ;USEBIT Is 400000 jf block-is in use* else 

The first time CORGET Is called, GOGTAB is 0, CORGET notices this 
and performs the following special actions: 

1) Prepares to allocate storage Just past the program and 
symbols (left half of J08SA contains the re I evant address) , 

2) Allocates the user table! puts pointer in GOGTAB. 

3) Forms remaining free storage from the end of the user table 
to contents (JOBREL) tC( JOBREL ) 3 Into a single free SAIL 
block, Puts -HEAD in LO(USER), FRE(USER), Puts C(J03REL)+1 
In TOP(USER), 

4) Performs the requested CORGET operation, 

16-8, FRE(USER) I s the header of a linked free storage list, 
Blocks are obtained from this list and the list Is updated, CORREL 
releases blocks onto this list, If no currently free block will 
satisfy a CORGET request, the CORE UUO Is executed to get more from 
the time sharing system, 



16-9, Users are free to use the CORGET function If they will be 
careful of the two header words and the single trailer word 
associated with each block, Release these blocks as soon as possible 
to prevent undue checker-boarding of free storage, 
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Cop re I 

16-10. Cornel Is called with the address 
correspond I ng Corget call (the DATA address) In reg 
block Is returned to the free storage list, If 
neighboring blocks Is already free, the adjacent 
merged with the one being released to form a b 
block being released Is uppermost In core, and If 
than about 2K» the core size of the program 
CORE UUO, About 2K of free storage Is left in 
altered by CORREL. 



obtained In the 

ster THIS, The 

either of the two 

f roe b | ocks are 

gger one. If the 
t occupies more 

s contracted using the 

th I s case , No ACs are 



Cor I nc 

16-11. Corlnc Is called with the DATA address of a SAIL block In 
THIS and a desired increment in S I Z . If there Is a free block 
directly above the THIS block w|th at least SIZ free words, or If the 
THIS block occupies the highest addresses of any block in use, the 
reauest Is granted, the block Is extended by S 1 2 words and the 
function executes a sk I p*r eturn, Otherwise no skip occurs and no 
action Is taken, No ACs will be altered. 

Can i nc 

16-12, Canine Performs the same tests as Corlnc and skips under 
the same conditions. It also uses the same calling sequence, If It 
does not skip, It returns with SI2 altered to show the number of 
words by which the DATA block can be Increased, It Is If no 
increase is possible, This function never affects current core 
a | I ocat I on , 



16-13, These functions are not available to SAIL 
core can be obtained by array declarations (which 
f unct I ons) , 



programs 
n turn use 



s I nee 

these 
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STRINGS 

String Descr ! ptorS 

16-14, A SAIL String has two distinct parts: the descriptor and 
the text, The descriptor Is unique and has the following format! 



WORDi: STRINGNO, , LENGTH 
WORD2 5 BYTP 



1) 



2) 



3) 



STRINGNO, This entry is if the String Is a constant (the 
descriptor w||| not be altered, and the String text js not 
In String space, Is therefore not subject to garbage 
collection), Every time a String Is created via the 
concatenation operator, or Input function, or an 
Integer-String type conversion, It receives a new STRINGNO, 
Each new String receives a number one greater than the last, 
starting at i when the- Program Is initialized, All strings 
formed as substrings of a given String have the String of 
the original (major) string, These numbers aid In 
Increasing String garbage collection efficiency. 



LENGTH, This number is zero for any 
It Is the number of text characters, 



nu I I Str i ng; otherwl se 



BYTP, If count Is 0, this byte pointer Is never checked (It 
need not even be a valid byte pointer, Otherwise, an ILDB 
machine Instruction pointed at the 8YTP word will retrieve 
the first text character of the String, The text for a 
String may begin at any point in a word, The characters are 
stored as LENGTH contiguous characters. 



AIL String variable contains the two w 

, The Identifier naming It points t 
uBscnutor, If a String Is declared INTERNAL, a symoo i is Tarraua vo 
reference W0RD2 by taking ail characters from the original name (ud 
to b) and concatenating a " , " ( OUTSTRING' s second word would be 

lakfiloH ftllTQT ^ 



16-15. A SA 
that variable 
desc r I ptor , I f 



word descriptor for 
o WORDI of that 
ymbol Is formed to 
name (up 



abeled OUTST, ) , 



16-16, When a String Is passed by reference to a Procedure, the 
address of W0RD2 is placed In the P-stack (see PROCEDURE 
IMPLEMENTATION, 16-46), For VALUE Strings both descriptor words are 
pushed onto the SP stack, 
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16-17, A String array is a bloc* of 2-word String descriptors. 
The array descrlotor (see ARRAY IMPLEMENTATION!, 16-33) points at the 
second word of the first descriptor In the array, 

16-18, Information Is generated by the compiler to allow the 
locations of all non-constant strings to be found for purposes of 
garbage-collection and Initialization (see PROCEDURE IMPLEMENTATION, 
16-46), All String variables and arrays are cleared to NULL whenever 
a SAIL program Is started, 

String Operat I ons 

16-19, The four basic String operations are concatenation (CAT), 
substrings (SUBsTR)i St r I ng- I nteger (GETCH), a nd Integer-string 
lP\jj£tt) , Other functions producing or operating upon strings are 
described In Execution Routines, 11-1, 

Cat 

16-2 0, CAT forms a new String from two other strings (constants or 
otherwise)! The calling sequence Is? 



PUSH 


SP.WORDU 


;WORDl, 


FIRST ARGUMENT 


PUSH 


SP, W0RD12 


JWQRD2. 


FIRST ARGUMENT 


PUSH 


SPiW0RD21 


JETC, 




PUSH 


SP,W0RD22 






PUSHJ 


P,CAT 







The result Is found as a new two-word descriptor on top of the SP 
(currently AC '16) stack, If either argument Is the null Strlng# the 
result Is the other argument, If the first argument occupies the 
space directly preceding the first free character in string space, 
only the second argument Is copied. Otherwise, both arguments are 
cooled (In order) Into free space to form the result, A new String 
number Is created for this result, The LENGTH field Is the sum of 
the LENGTHS of the two arguments, 
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Substr 

16-21, SUBSTR returns a descriptor representing a part of Its 
InDut argument, SUBSTR Is really three routines, called as follows: 



PUSH SP,W0RD1 
PUSH SP,W0RD2 



SUB'ST- 
PUSH P,LASDX 
PUSH P,FIRSDX 



SUBSR 
PUSH P.NUMCHR 
PUSH P,FIRSDX 

PUSHJ P,SUBS<T/R/I) 



SUBSI 
PUSH P,FIRSDX 



LASDX Is the number of the last character to be Included (starting 
with 1), FIRSOX Is the number of the first character to be Included, 
NUMCHR Is the number of characters to be Included, 

16-22, The result Is always a two-word descriptor In the SP stack 
describing the substring, 

SUBST Is used for the construct STCX for YD, 
SUBSR Is used for STCX to Y3. 
SUBSI Is used for STCX to -], 

16-23, An error message Is printed |f the request can not be 
satisfied, This will result In Job abo P tlon, 

16-24, The String number of the output is the same as the String 

number of the Input, 



Getch 

16-25, Cal I with 



PUSH SP,W0RD1 
PUSH SP.W0RD2 
PUSHJ P, GETCH 
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The first character If the String Is returned In AC l Unless the 

String Is NULL; zero Is returned In this case, The Sp stack Is 

adjusted to remove the parameter. An error message will be printed 
if some Dart of the requested substring does not exist. 



Putch 

16-26, Ca| I with 



PUSH 
PUSHJ 



P, VALUE 
P, PUJCH 



The result Is a String descriptor with count of 1 on top of the SP 
stack, The P stack Is adjusted to remove the parameter and return 
adaress, The String number |s new, The low order 7 bl^s of VALUE 
form the single character In the string, 



String Space 



16-27, 
13-22) 

s I ng 1 e 
program 



The normal or user-specified (see STORAGE ALLOCATION, 

number f w rds required f r strings Is used t obtain a 

SAIL block (see Storage Allocation Routines, 16*5) when the 

Is started, The limits of this area are placed In ST(USER) 



and STTOP(USER), Other parameters are set up as described below, 



16-28, String text characters are placed contiguously in thes area 
as strings are created, When not enough storage remains for a 
contemDlated String, the garbage collector (see String Garbage 
Collection, 16-30) is called to optaln more (by compacting the 
current space, If possible), If this fails, the program wl|| restart 
and request more reasonable allocation, 
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Parameters Used by String Operations 

16-29, 

Bottom (low address) of String space 
(Tqd+1) of String space 



ST(USER) 

STTQP(USER) 

TQPBYTE(USER) 



REMCHR(USER). 
TOPSTR(USER) 



Byte pointer such that IDPB TOPBYTE ( USER ) will 
store Into next character 

Negated number of free characters remaining 

W0RD1 for last created String (doesn't Include 

substring operations), CAT uses this word to 

decide whether Its first argument needs to be 
moved (see Cat, 16-20), 



String Garbage Collection 
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String-Oriented Machine Language Routines 

16-31, If you must write a routine which operates on strings* 
Please observe the following conventions: 

1) See PROCEDURE IMPLEMENTATION, 16-46 for conventions 
concerning input parameters and value returning. 

2 ) If you merely need to read a String, no particular care Is 
required (don't change the descriptor of a reference String 
parameter by performing careless ILDBs), 
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16-32, If you need to create a new String, these are also 
app I I cab I e s 



4) 



4) 



Estimate the number of characters if It Is not known 
exactly, This estimate must be an upper bound, an 
unrea I I st I ca I I y large estimate will cause the garbage 
collector to work more often than necessary. Place the 
estimate In register A (1), 



Execute the following code before doing 
String-munch jng» 



any 



MOVE USER,GOGTAB 

ADDM A,REMCHR(USER) 

SKIPLE REMCHR(USER) 

PUSHJ P,STRNGC 



;ESTABLISH ADDRESSABILITY 
JUPDATE REMAINING count 
;TEST IMPENDING OVERFLOW 
JCOLLECT, WILL NOT RETURN IF 
i NEW REMCHR+C(A)>0, 



5) TOPBYTE(USER) should be your WQRD2 result, Save jt now, 

6) Do repeated IDPBs to TOPBYTE ( USER ) to store your string, 
This keeps yOPBYjE accurate, Count characters If your 
estimate was only an estlmatet 

7) Create W0RD1 of your result, The left half is the left 
half of TOPSTR(USER) Incremented by one. The right half Is 
the length of your new string, This word Is not only W0RD1 
of your result, but also should be placed In TOPSTR(USER) . 

8) Subtract (estimate - actual length) from REMCHR(USER) to 
keep It honest, This should make rEMCHr If anything more 
negative, 

9) Return String results on the top of the SP stack, If a 
result Is to go In a reference parameter (see PROCEDURE 
IMPLEMENTATION, 16-46) remember that the address you^ have 
Is that of the W0RD2 (byte pointer) word of the descriptor, 
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ARRAY IMPLEMENTATION 

Porrr 

16-33, Let STRINGAR be 1 (TRUE) If the array in Question Is a 
String array, (FALSE) otherwise, Then a SAIL array of n dimensions 
has the following format? 



;-» MEANS "POINTS AT" 
;SEE BELOW 



HEAD! -DATAWD 

HEAD-END-1 

ARRHEDJ BASE._W0RD 

LOWER BD(n) 
UPPER BD(n) 
MULT(n) 



LOWER.BD(l) 

UPPER 3D(1) 

MULT(l) 

NUM.DIMS,, TOTAL SIZE 
DATAWOJ BLOCK TOTAL.SI2E 

<sometlmes a few extra words> 
END: 400000, , -HEAD 



Exd I anat Ion 
16-34, 

HEAD 



ARRHED 

NUM_DIMS 
TOTAL. SI2E 



The first two words of each array, and the last* are 
control words for the Storage Allocation Routines, 
16-5, These words are always present for an array. 
The array access code does not refer to them, 

Each array is proceeded by a block of 3*n+2 control 
words, The BASE.WOrD entry Is ex D lalned later, 

This Is the dimensionality of the array, If STRINGAR* 
this value is negated before storage In the left half. 

The total number of accessible elements (double If 
STrINGAr) in the array, 
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BOUNDS The lower bound and upper bound for each dimension are 
stored In this table, the left-hand Index values 
occupying the higher addresses (closest to the array 
data), If they are constants, the compiler will 
remember them too and try for better code (I.e. 
immediate operands). 

MULT This number, for dimension m, Is the product of the 
total number of elements of dimensions m+1 through n. 
MULT for the last dimension Is always 1, 

BASE_W0RD This Is 

DATAWD • the sum of ( STRINGAR+1 ) #L0WER_BD<m) *MULT(m) 

for all m from 1 to n, The formula for calculating 
the address of ACI,J,K] Is; 



address(ACI,J,K3) * 
address(DATAwD) + 

(I-L0WER.8D(1))#MULT(1) + 
<J-L0WER_BD(2))»MULT<2) + 
(K-L0WER_BD<3>) 

This expands to 



address(ACI , J,K3) * 
addreSs(DATAWO) + 
I*MULT(1) + J#MULT(2) + K 

-(LOWER. BD(1)#MULT(1) + LOWERED ( 2 ) *MULT ( 2 ) + LOWER. B0(3) 

which Is 



BASE. WORD * I*MULT(1) * J«MULT(2> + K. 

By pre-ca I cu I at I ng the effects of the lower bounds, 
several Instructions are saved for each array 
reference. 
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Ar ray A | I ocat 1 on 

Dynam I o Ar rays 

16-35, When an array Is declared In any block other than the outer 
one, the compiler generates code to call the function ARMAK with 
parameters describing the array, This routine calls CORGET (see 
Storage Allocation Routines, 16-5 ) to obtain enough storage, then 
sets ud the control table and clears the data area to zeroes, The 
ARRHED address is saved In an array push-down list whose pointer Is 
ARRPDP(USER) , The addres of DATAWD + 1 Is returned for String arrays* 
the address of DATAWO Is returned for all others, The compiler 
generates code to store this address in the core c © t I bearing the 
name of the array variable, 




16-37, The String garbage collector uses the array push-down stack 
to find dynamic String arrays which need attention, 

Built-in Ar rays 

16-38, Outer-block arrays have constant bounds, The compiler 
simply emits a Jrst Instruction, then compiles the control table into 
the block head of the object program. It leaves room for the array, 
then Issues the END word. The Jrst Instruction then finds Its home 

In some code to clear the array to zeroes, 



16-39, 

address 

address 



The core location bearing the name of the array has the 
of DATAWd (DATAWd+1 If STRINGAR) compiled Into It, This 
s given the dotted name described In DEBUGGING, 14*8, 



16-40, For built-in String arraysi a String link block (see 
PROCEDURE IMPLEMENTATION, 16-46) Is Issued following the space 
allocated for the array, The String garbage collector (see String 
Garbage Collection, 16-30) gains access to this array through this 
stat J c I I nk, 
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16-41, It can be seen from all this that all dynamic and built-in 
arrays are cleared when the blocks In which they are declared are 
entered, Since the outer block of a separately compiled procedure 
file (see Separately Compiled Procedures, 15-7) Is never entered, Its 
built-in arrays, althouch available for use, are never cleared, The 
loader clears them once as It loads, 



Array Access Code 

16-42, In the worst case (no fixed bounds, bounds checking, n 
bullt*ln) the statement K*A[I,J] will pe compiled as! 



ot 



MOVE 


1) 


A 


MOVE 


2 


, I 


CAML 


2i 


-4(1) 


CAMLE 


2, 


»-3<l> 


ARERR 


li 


,CASC!2 


IMUL 


2< 


,-2<i) 


MOVE 


3, 


J 


CAML 


3 


►-7(1) 


CAMLE 


3 


►-6(1) 


ARERR 


2 


rCASCIH 


ADD 


3 


,2 


ADD 


3 


.-10(1) 


MOVE 


4 


r (3) 


MOVEM 


4 


rK 



/A/3 



/A/3 



J -►FIRST DATA WORD 
jFIRST SUBSCRIPT 
; IF <L0WER BOUND OR 
>UPPER BOUND THEN 
ERROR IN INDEX 1 
I*MULT(1) 
JCHECK DIMENSION 2 



NO MULT FOR LAST, 

+ BASE WORD 
DATA FROM ACI.JD 



COLLECT OFFSET 



16-43, If A ls# however, declared In the outer 
INTEGER ARRAY ACl : 10 , 1 : 53 , the code for ACI,J3 Is 



block as SAFE 



MOVE 


1.1 


IMULI 


1,5 


ADD 


1,J 


MOVE 


2, A 


MOVEM 


?,K 



-5(1) 



\ I«MULT(1) 
JCOLLECT OFFSET 
CONSTANT PART OF 



ADDRESS COMPILED IN 
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16-44, 



AE 1,33 would be complied as 



MOVE 


1,1 


IMULI 


1*5 


MOVE 


2#A,-2C1) 


MOVEM 


2,K 



and J«-AC2» 3] wou Id be 
MOVE 3, A, +7 
MOVEM 3, J 



16-45, Various configurations of array declarations and accesses 
result In code which ranges between these degrees of efficiency. 



PROCEDURE IMPLEMENTATION 
16-46, 



Procedure Body 

16-47, To describe the main characteristics of SAIL procedures! a 
set of sample procedures are displayed here along with the code they 
produce. Some of the entries are discussed In more detail below, 
The notation Cn] Is placed In the comment field of the assembly 
Instructlonto refer to these d I scuss I ons t 



INTEGER PROCEDURE PKJNTEGER I , J |. STRING A); 

PU AOS PIP AC ;C13 INCREMENT PROC ACTIVE COUNTER 



BEGIN 
INTEGER Q; STRING A,Bj 
INTEGER ARRAY XC0153J 
PUSH 
PUSH 
PUSH 
PUSHJ 
MOVEM 
PUSHJ 



P, C03 

P,C5] 

PiCID 

P,ARMAK JALLOCATE AND CLEAR 

1,X J STORE POINTER 

P,ARMRK ?END OF ARRAYS FOR BLOCK 
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<cod« for proc«dure> 



RETURN(Q); 



MOVE 1,Q JC23 RESULT IN 1 

PUSHJ P,ARREL I C3 3 RELEASE ARRAYS FOR BLOCK 

JRST P1EXIT ;EXIT PROCEDURE 



<more cod« for orocedure> 
END W P1" 





PUSHJ 


P,ARREL 


P1EXIT: 


SOS 


PlPAC 




SUB 


SP,CXWD 




SUB 


P,CXWD 




JRST 


*3<P> 


Qf 







XI 







TEMP07? 







At 


BLOCK 


2 


B; 


BLOCK 


2 


P1PAC: 









XWD 


2, A 


LNKWDJ 









LINK 


liLNKWO 



J IF FALLS THROUGH, RELEASE ARRAYS 
>QNE TIME LESS ACTIVE 
2,23 {REMOVE STRING PARAMETER 
3,33 K43 NON-STRINGS, RETURN ADDR 
{RETURN 
IROOM FOR VARIABLE 
JARRAY POINTER 
IC53 TEMPORARY STORAGE 
JTWO WOROS FOR EACH STRING 

IC63 PROCEDURE-ACTIVE COUNT 
ISTRING COUNT, -FIRST 
IC73 LINK PASSES THROUGH HERE 
IC73 CAUSES LOADER LINKAGE 



PROCEDURE P2UNTEGER I, J) STRING A); 
BEGIN 
INTEGER ARRAY XC0* 103 J 

BEGIN 
INTEGER ARRAY YC0J103* 

i » * 

RETURN i 

PUSHJ P,ARREL {RELEASE ARRAYS FOR ALL 

PUSHJ P/ARREl l BLOCKS IN PROCEDURE 

JRST P2EXIT 

t • * 

ENDl 
END"P2"! 



STRING PROCEDURE P3(STRING A,B)J 
BEGIN STRING Cl 



SUB 


SP,CXWD 4,43 


PUSH 


SP,C 


PUSH 


SP,C+1 


JRST 


P3EXIT 


SUB 


SP,CXWD 4,4] 


PUSH 


SP,3(SP> 


PUSH 


SP,3(SP) 


JRST 


P3EXIT 
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RETURN(C); 

JREMOVE PARAMS 

JRETURN STRING RESULT 
JRST P3EXIT 

RETURN(B); 

SUB SP,CXWD 4,4] 

JFIRST WORD OF B 
iSECOND WORD OF B 
JGQ RETURN 

RETURN<CS"STR"); COMMENT ASSUME CAT ALREADY DONE; 

SUB SP,CXWD 6,6] JREMOVE PARAMS, TEMP RESLT 
PUSH SP,5(SP) JTEMP RESLT 
PUSH SP,5(SP) J2D WORD 
JRST P3EXIT 

END # "P3"J 

P3EXITJ SOS P3PAC 

SUB SP,CXWD 4,4] JNOT THIS TIME, BUT WOULD 

PUSH SP,C0] J8E INCLUDED IF NO RETURNS 

PUSH SP,C0] ;DONE ABOVE (RETURN NULL STRING) 

RECURSIVE INTEGER PROCEDURE P4(STRING A,B; INTEGER I,J)J 
P4TEXT: AOS P4PAC 

BEGIN 
STRING C,Dj INTEGER K,LJ 



JC8] 
5C8] 
?C8] RESTORE LOCAL STRINGS 

JC8] SAME FOR P-SIDE 

J (ALSO RETURN ADDR REMOVED) 

;MUST EVEN SAVE TEMPS 
JRETURN 

JLEAVE ROOM FOR LOCALS 
;CHECK PUSH-DOWN OVERFLOW 
?C9]UU0 TO SIMULATE PDL OV 



END "P4»J 






P4EXIT: 


SOS 


P4PAC 




SUB 


SP,CXWD =8, 




HRRI 


TEMP,C 




HRLI 


TEMP,5(SP) 




BLT 


TEMP,D+1 




SUB 


P,CXWD 6,6] 




HRRI 


TEMP,K 




HRLI 


TEMP,4(P) 




BLT 


TEMP,TEMP03 




JRST 


?>3(P) 


P4J 


ADD 


P,CXWD 3,3] 




SKIPL 


P 




PDLOV 


P, 
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HRRI TEMP,-2(P) JC93SAVE LOCALS 

HRLI TEMP,TEMP03 ; AND TEMPS 

BLT TEMP,(P> 

<slm!laply for SP (string stack)> 

JRST P4TEXT J GO DO PROCEDURE 

<vap lab I es and such> 



RECURSIVE STRING PROCEDURE P5(STRING A,B)J 
BEGIN 
STRING C,DJ 

RETURN(C)J 

PUSHJ P,P5P0P JC103REMOVE STRING LOCALS, PARAMS 

PUSH SP,C JSTRING RESULT 

PUSH SP,C+1 

PUSHJ P,ARREL JENOUGH TIMES IF ANY ARRAYS 

JRST P5EXIT 

RETURNCBH 

PUSHJ P.P5P0P 

PUSH SP,3(SP) 

PUSH SP,3(SP) {RETURN PARAMETER 

JRST P5EXIT 

RETURN* A&"STR")J 

POP SP,1 JC113ASSUME CAT ALREADY DONE 

POP SP,0 

PUSHJ P,P5P0P 

PUSH SP,0 JC113RETURN VALUE 

PUSH SP,1 

JRST P5EXIT 

END*"P5"I 

P5EXITJ SUB P # CXWD 2,23 J OR WHATEVER, SEE ABOVE 

IRESTORE LOCALS, ADJUST 

JRST 03<P) IRETURN 

P5J <as above> 
♦ » » 

P5P0PJ SUB SP,CXWD *8,=83 iZldl REMOVE STRING LOCALS, PARAMS 

HRRI TEMP.C 

HRLI TEMP,5(SP) 

BLT TEMP,D*1 

POPJ P, JRETURN 
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The rratn program has the following format: 

S,: SKIPA JNOT STARTED IN RPG MODE 

SETOM RPGSW ;STARTED IN RPG MODE — RPGSW A GLOBAL 
JSR SAILOR UNIT —-RETURNS BY PUSHJ ■ P,#SAILOR 

Comment • The main program looks (Ike a ■ non-rtcursl ve procedure 
froir here on, except for built-in arrays • 

PQPJ P, jRETURN TO INI T, WHO EXITS 

<gl.obal variables, llnkages> 

<non«Strlng constants> 

XWD 0,,«8 ATYPICAL STRING CONSTANT 

POINT 7,,+l 

ASCII /CONSTANT/ 

<more String constants> 

END S, | STARTING ADDRESS FOR MAIN PROGRAM 
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I scuss I on 

16-48, 

C13 There Is for each procedure a word (PAC for Procedure Active 
Count) which is Incremented on procedure entry and decremented 
on ex|t, At one time, the String garbage collector used th|s 
word, It may again some t|me |n the future, At present the 
counter Is useful for determining the depth of recursion (from 
ODD, 



121 



C33 



Non-String procedures return their results In lj Fortran 
returns things In 0; String results are returned on the SP 
stack, 



An ARREi call Is Issued for each block 
which must pe left In order to exit, 
blocks are released at this time, The 
happens when a Go To statement (eaves one 



(conta I n I ng ar rays) 
A 1 I arrays for these 

same sort of thing 

or more blocks, 



C43 Since the return address Is on the top of the P-stack, with 
parameters burled beneath, a subtract and an Indirect jump 
replace the POPJ, Procedures always adjust the stack before 
return I ng , 

C5 3 String temporaries are kept |n the SP stacki Others 
occass I ona I I y occupy core locations. These are grouped with 
the non-String variables to make saving and restoring easy In 
recursive procedures, 



[63 This Is the Procedure Active Count 
Placed In a fixed location with 
block (below), The String garbage 
wjahedi see this count. 



word (see C13), It Is 

respect to the String-link 

co I I ector cou Id, if It 



C73 A linked list, with Its head In a reserved cell in the user 
table (see User Table* 16-1) gives the String garbage collector 
access to all String variables declared for each procedure! and 
to all built-in String arrays, Each entry on the list contains 
three words? a PAC counter (currently Ignored), a word giving 
the location and extent of the String descriptors being 
described, and the pointer (INKWD) to the next entry, A 
entry ends the list. The LINK pseudo-op (or the equivalent 
code Issued by SAIL) Instructs the loader to create this list, 
The LINKEND pseudo-op is Issued In the SAILOR routine to 
collect the address of the first list element, This Is then 
transferred to the user table, See CNe|her3 for details 
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concerning the LINK block type, 

C83 When a recursive procedure Is called/ all values for variables 
declared In blocks Internal to this procedure are saved In the 
appropriate stack, These are added "on top of" the parameters 
and return address for the procedure, At procedure exit the 
stack pointer Is adjusted to point below the first parameter. 
Then the prosper BLT word Is set up to restore all these locals 
from the stack. After the BLT Is 'executed* that stack Is ready 
for procedure exit, 

C9 3 Since SAIL Is a one-pass compiler, It does not know how many 
locals a procedure has until all blocks for that procedure have 
been ©rocessad, Therefore the entry code for recursive 
procedures Is added last, followed by a Jump to the procedure 
text, 

C10J When a. String procedure returns a value, the String parameters 
and locals must be removed from the stack before the value 
(result) can be pushed on, Since the total number of String 
locals Is not yet known, a routine like P5P0P |s Q*\\edi to 
remove the unwanted values first, Recursive String procedures 
must contain Return Statements (see Return Statement, 5«19)J 
otherwise Improper code will result, 

C 11 3 Once P5POP or its equivalent has been executed, the previous 
top of stack location is not known? the temp value Is therefore 
removed first and restored after the call, 

Procedure Calling Seauenees 

16-49, Again a case study Is presented, A procedure with several 
Internal procedures is presented to demonstrate the ridiculous number 
of oosslbl I I tes, Only the relevant code Is described. Accumulator 
numbers In the code below are only examples -- other values are 
possible, This list Is not complete) to describe all oases here 
would take more space than a copy of the code In SAIL which handles 
them, Item and Set parameters behave like Integer and Real 
parameters as far as argument passing Is concerned? 
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PROCEDURE SUPER(REFERENCE STRING RPSTR; 

INTEGER PINT; REFERENCE 
REAL PROCEDURE PPAR; 
STRING PSTR1.PSTR2); 
BEGIN 
INTEGER INT1, INT2; STRING STR1,STR2; 
SAFE INTEGER ARRAY ARRC2S103J SAFE 
INTEGER PROCEDURE INTP(INTEGER I, J)? 
PROCEDURE RINTP(REFERENCE INTEGER I) 
PROCEDURE STRP(STRING A,3)J.,,; 
PROCEDURE RSTRPCREFERENCE STRING A)I 
PROCEDURE PROCP(PROC£DURE PARAM);,.. 
PROCEDURE ARRP(STRING ARRAY X);..,; 



INTEGER RPINT; 



REAL RELJ 
STRING ARRAY 



J 



SARRL2J10]; 



t * 



INTl*-PINTt2 + RPINTt2 - 3; 



MOVE 
IMUL 
MOVE 

IMUL 

ADD 

SUBI 



1,-3<P) 

1,1 

2,ca~2(P) 

2,2 

2,1 

2,3 



JRELATIVE LOC OF PINT 

jRPINT's ADDRESS IS IN STACK 

JSUM 

JRESULT LEFT IN 2 



REL*INTP<INT1,PINT) j 

PUSH P,2 

PUSH P,-4(P> 

MOVEM 2,INT2 

PUSHJ P,INTP 

FLOAT 1,1 



; INT1 STILL IN 2 

;C1]ADJUST FOR PFEV PUSH 

;C2]ST0RE CURRENT ACS BEFORE CALL 

JCALL PROCEDURE 

JCONVERT TO REAL -- REL IS IN 1 



RINTP(INTI) J 



PUSH 

MOVEM 

PUSHJ 



P,CINT1] 

1,REL 

P,RINTP 



JADDRESS OF INT1 
JPREVIOUS RESULT 



RINTP(PINT) J 



MOVEI 

PUSH 

PUSHJ 



3,-3(P> 

P,3 
P,RINTP 



JADDRESS OF PINT 



RINTP(RPINT)? 



PUSH 
PUSHJ 



P,-2(P) 

P,RINTP 



;PASS ON ADDR OF RPINT 



INT2-INTP(INT1,ARRCPINT])I 

PUSH P,INT1 
MOVE 4,-4<P> 



;PINT 
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MOVE 5,ARR 

ADO 4,-4(5) 

PUSH P,(4) 

PUSH J P,INTP 

RINTP(ARRCP|NT3)J 

MOVE 6, PI NT 

MOVE 7,ARR 

ADO 6,-4(7) 

PUSH P,6 

MOVEM 1,INT2 

PUSHJ P,RINTP 



STRP ( STR14"C.0N" , PSTR1 > ? 

PUSH SP,STR1 

PUSH 

PUSH 

PUSH 

PUSHJ 

PUSH 

PUSH 

PUSHJ 



RSTRP(STRl); 



PUSH 
PUSHJ 



SP,STR1+1 

SP, GONAD 

SP,CONAD+l 

P,CAT 

SP,-4(SP) 

SP,-4(SP) 

P,STRP 



P,CSTR1*13 
P,RSTRP 



JBASE ADDR OF ARR 
JRESULT IN 1 



JADDRESS 



JADDRESS OF DSCRPTR FOR "CON" 

JlEAVE CONCATENATE IN STACK 
;PUT STR1 ON TOP 



?ALL REF PARAMS TO P-STACK 



RSTRP(RPSTR) \ 



RSTRP(PSTR2)J 



PROCP(RINTP)) 



PUSH 
PUSHJ 



HRROI 

PUSH 

PUSHJ 



PUSH 
PUSHJ 



P,-4(P) 
P,RSTRP 



10, (SP) 

P,10 

P,RSTRP 



P,CRINTP3 
P,PROCP 



;PASS REFERENCE ALONG; 



;C33RH*2D WORD OF PSTR2 



jPARAMETRIC PROCEDURE 



ARRP(SARR) J 



PUSH 
PUSHJ 



P,SARR 
P,ARRP 



;THIS IS EFFECTIVELY A REFERENl 
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I scuss Ion 



16-50. 



Counts are maintained of the current number of actual 

Parameters (during a procedure call) on each stack. These 

counts must be added to the parameter Indices to access 
parameters of the procedure doing the calling. 



C21 



C33 



Whenever a SAIL procedure Is called, a 
SP <'16> and P C17) are available for 



I accumulators except 
Its use. 



Some .String operations require that the left half of 
pointers to descriptors be negative, Therefore any 
operation which obtains a String descriptor address does a 
HRRO or HRROI to accomplish this, In this case It Is not 
necessary, but It won't hurt anything. String reference 
Parameters always point to the second word of the String In 
quest Ion, 
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SECTION 17 
APPENDIX •- USEFUL SUMMARIES 



ARITHMETIC TYPE-CONVERSION TABLE 
17-1. 



OPERATION 


ARG1 


ARG2 


ARGl* 


ARG2# 


RESU 


• t X 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


INT 
REAL 
REAL 
REAL 


INT 
REAL 
REAL 
REAL 


INT# 
REAL 
REAL 
REAL 


LAND LOR 
EQV XOR 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


INT 
REAL 
INT 
REAL 


LSH ROT 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


INT 

REAL 
INT 

REAL 


INT 
INT 
INT 
INT 


INT 

REAL 
INT 

REAL 


/ 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


REAL 
REAL 
REAL 
REAL 


REAL 
REAL 
REAL 
REAL 


REAL 
REAL 
REAL 
REAL 


MOD DIV 


INT 
REAL 
INT 
REAL 


INT 
INT 
REAL 
REAL 


INT 
INT 
INT 
INT 


INT 
INT 
INT 
INT 


INT 
INT 
INT 
INT 


* Unless ARG2 


Is <0 


for the 


operat 


or * 
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SAIL RESERVED WORDS 
17-2. 

abs and any array array pdl begin boolean case comment complex cop 
cvi cvn datum define delete do done else end entry eqv erase external 
false first for foreach Fortran forwaro from global go goto if in 
integer internal istriple item itemvar label land length library 
load module lnot lop lor lsh make mod neednext next new new items not 
null of or own phi pnames preload with procedure put real recursive 
reference remove require return rot safe second set step string 
string.pdl -string. space such system^pdl that then third to triple 
true until value while xor 

sail predeclared identifiers 

17-3. 

ARRBLT ARRINFO ARRTRAN ARRYIN ARRYOUT BREAKSET CALL CLOSE CLOSIN 
CLOSOUT CLRBUF CODE CVASC CVD CVE CVF CVFIL CVG CVIS CVO CVOS CVS 
CVSI CVSIX CVSTR CVXSTR ENTER EQU GETCHAN GETFORMAT INCHRW INCHRL 
INCHRS INCHSL INCHWL INSTR INSTRL INSTRS INPUT INTIN JNTSCAN LENGTH 
LINOUT LOOKUP MTaPE OPEN OUT OUTCHR OUTSTR REALIN REALSCAN RELEASE 
RENAME SCAN SETBREAK SETFORMaT STRBRK TTYIN TTYINL TTYINS WORDIN 
WORDOUT USERERR USETI USETO 

CHARACTER. IDENTIFIER EQUIVALENCES 
17-4. 

CHARACTER RESERVED WORD 

a AND 

= EQV 

NOT 
v OR 

• XOR 

INF 
t IN 

1 SUCH THAT 
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PARAMETERS TO THE OPEN FUNCTION 
17-5. 

CHANNEL System Data Channel, 0-'17 

DEVICE string glvlno device name 

MODE data mode 

INBUFS number of Input buffers 

OUTBUFS number of output buffers 

COUNT text Input count (reference) 

BrCHAR break char variable (reference) 

EOF end-of-flle flag (reference) 
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8REAKSET MODES 

17-6. 

I (Inclusion) string Is set of break chars 

X (exclusion) string of all non-break chars 

(Omit) string of characters to be omitted from result 



(skip) break char appears only In BRCHAR variable 
(Append) break char Is last char of result string 
(Retain) break char Is first char of next string 



(Pass) line numbers appear In input without warning 

(No numbers) line numbers and the tabs that follow them 
are removed, 

(Line no break) line numbers cause Input break, BRCHAR 
Is negative, Next Input gets line no characters, 

(Erman) line numbers cause Input break, Negated line no 
returned In BrCHAR. Line no removed from Input* 

(Display) after this appears, each line no Is listed on 
the display (If TTY Is a DPY) as It Is dealt wjth, 
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MTAPE COMMANDS 
17-7. 



MODE 



FUNCTION 



"A" 
"B" 

!« p t» 

"R" 

"E" 

"U" 



Advance oast one tape mark (or fl|e) 

Backspace past one tape mark 

Advance one record 

Backspace one record 

Rew I nd tape 

Wr I te tape mark 

Rew I nd and un I oad 



COMMAND SWITCHES 

17-8, 

D double size of define pushdown stack 

numL listing control -- num>0 becomes listing starting addr» 
num=-l starts listing after current DDT size* num=-2 
starts listing after current RAID size, 

numM initial debugging mode set to num 

P double size of system pushdown list 

Q double size of string pushdown list 

R double size of parse pushdown list 

numS set size of string space to num 
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DEBUGGING MODES 
17-9. 



display before executing each code generation routine 

don't display* but remain enabled for asynchronous and 
I i ne breaks 

display before each production Is compared 

continue from type 1 and 3 modes automatically 

just display Input file as It goes past 

disable debugging mechanism (started In this mode unless 
an M swl tch appears) , 



VALID 
17-10 
CR 
LF 

S 
X 

L 

E 



RESPONSES TO ERROR MESSAGES 



(carriage return) try to continue 

(line feed) continue automatically 
user go»ahead after each message 



don't stop for 



restart 

exit -- close all files, return to monitor 

look at stacks •- of Interest only to compiler fixers 

edit, Follow by CR to get file the compiler Is working 
on (or last thing edited* for runtime routines), Fo||ow 
with <name> OR to edit <name>, 



go to DDT or RAID 
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SECTION 18 
BIBLIOGRAPHY 



18-1. 
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Manual, Sa!|o n s 54 a n d 55 (Sep, 1969), 
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Welhep, W,F, Loader Input Format, Sal Ion 46 
(Oct, 1968), 



Sav i tzky 



Savltzky, S,R, Son of Stopgap, Sal Ion 50.1, 
(Sep, 1969), a revision of Stopgap, Sal Ion 50, 
by W,F, Wejher, 
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9- 1 
9- 1 
9- 1 
9- 1 
9- i 
9- 1 
9- 1 
9- 1 

7- 1 
9- 1 
8-49 
6- 1 
6- 1 

8- 1 
8- 1 

12- 9 
6- 4 
8- 1 
8- 1 
8-29 
4-1 
6- 1 
8- 1 
3- 1 

8- 1 
8 

8-16 
5- 6" 

9- 7 
17 
10-13 

8-22 
3- 1 
3- 1 

3- 1 
16-35 

3-25 
16-33 
11-107 
11-109 
11-107 
11-111 
11-51 
11-56 
15-12 

4- 1 
8- 1 



<X_assoc I 
<X r der I ve 
<X_ i tem_e 
<X_ I tem_e 
<X_set ex 
<^.set„f a 
<^.set r pr 
<X_set_te 
<X_tr I p I e 
<X„tr I p I e 
Abs 

<act.ua I _p 
<actua I _p 
<actua ! _p 
<actua I „p 
Actual Pa 
Actual Pa 
<add lng„e 
<add I ng_o 
Adding Ex 
<a I gebra I 
<a I gebral 
<a I gebra I 
<a I gebra I 
<a I gebra I 
ALGEBRAIC 
Algebraic 
Amb Igu I ty 
ANY Const 
APPENDIX 
Ar I thmet I 
Ar I thmet I 
<ar ray^de 
<array r I I 
<array_se 
Array A | | 
Array Dec 
ARRAY IMP 
ARRAY KAN 
Arrblt 
Ar r I nf o 
Ar rtran 
Ar ry \ n 
Ar ryout 
Asaemb ly 
<ass Ignme 
<aas Ignme 



at | ve_expr> 

d.set> 

xpr„ I lst> 

xpress I on> 

press J on> 

ctor> 

|mary> 

rm> 

> 

> 

arameter> 
arameter_ I I st> 
arameter„ I I st> 
ar emeter> 
rameter Expansion 
rameters 
xpress I on> 
perator> 
press Ions 
c_ass I gnment> 
C^express I on> 
c.re I at I ona I > 
c_type> 
c_var I ab I e> 

EXPRESSIONS 

Expressions 

In Conditional Statements 
ruct 

-- USEFUL SUMMARIES 
c Constants 
c Type Conversions 
c I arat lon> 

8t> 

gment> 
ocatlon 
I arat i ons 

lementation 
ipulation routines 



Language Procedures 

nt> 

nt expresslon> 



SAIION NO, 57 SAIL 18-3 

8- 4 Assignment Expressions 
4 ASSIGNMENT STATEMENTS 
7-1 <associat I ve_context> 

9- 1 <assoeiat I ve_expresslon> 
9- X <a ssec i a 1 1 ve_operator> 
7- 1 <associat I ve_statement> 

10 8A5IC CONSTRUCTS 

18 BIBLIOGRAPHY 

13- 1 <blnary.name> 

7- 1 <bindingj Ist> 
2-1 <bloek> 

2- 1 <block y head> 

2- 1 <b!oek^name> 

2- 9 B lock Names 

8-1 <boo!ean. express lon> 

8-51 Boolean Primaries 

3- 1 <bound|.palr> 

3- 1 <beund„pal r_ I |st> 

11-23 Breakset 

11-115 Ca I t 

6- 6 Cal I by Reference 

6- 5 Call by Value 
16-12 Canine 

8- 1 <case_ express I on> 
5- 1 <case - ,statement> 

5- 1 <case.statement o .bead> 

8- 6 Case Expressions 

5-18 Case Statements 

11-10 Close* Closim Closo 

11-113 Code 

13- 1 <command_ I lne> 

13- 1 COMMAND FORMAT 

10-21 Comments 

13 COMPILER OPERATION 

2- 1 <compound fl ,statement> 

2- 1 <compound^tal l> 

8*37 Concatenation Operator 

8-1 <cendl t lona {^express ion> 

5- 1 Ccond It I ona J _statement> 

8- 2 Conditional Expressions 
5* 2 Conditional Statements 

9- i Ccbnttruot lon^ I tem„pr lm> 

7- 8 Construction * Retrieval Distinction 
16- 6 CorQet 

16-11 Corlnc 

16-10 Correl 

11-101 Cvasc 

11-97 Cvd 

11-88 Cve, Cvf , Cvg 
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11-105 Cvf I I 

9~ 8 CVI 

11-84 Cvls 

8-47 Cvn 

11"99 Cvo 

11-82 Cvos 

11-80 Cvs 

11-86 Cvs! 

11*103 Cvslx 

11-93 Cvstr 

11-95 Cvxstr 

4- 7 Datum Assignments 
10- 6 Datums 

14- 8 DEBUGGING 

13-14 Debugging modes 

3- 1 <dec larat I on> 

2-3 Declarations 

3 DECLARATIONS 

3- 1 <def lne_body> 

3-1 <def Ine.ldentif I er> 

3- 1 <def Ine.spec I f lcatlon> 

3-54 Define Specification 

12- 1 Def Inlng Macros 
3- 1 <def lnltlon> 

3- 1 <def Inl t Ion I lst> 

7-10 DELETE 

13- 1 <dev I ce_name> 

8- 1 <d I sjunct | ve^express lon> 

8-19 Disjunctive Expressions 

5- 1 <do_statement> 
5-17 Do Statement 

5- 1 <done_statement> 

5-23 Done Statement 

7- 1 <element> 

2- 1 <entrylspec j f I cat |on> 

2-11 Entry Specifications 

11-73 Equ 

7-13 ERASE 

13-19 ERROR MESSAGES 

5 EXECUTION CONTROL STATEMENTS 

11 EXECUTION TIME ROUTINES 

8- 1 <expresslon> 

8- 1 <express Jon^l |st> 

3-46 External Procedures 

8- 1 <factor> 

8-38 Factors 

13- 1 <f I le_ext> 

13- 1 <f I le_name> 

13- 1 <f I |e_spec> 
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5- 1 <for.llst> 

5- 1 <f or. I I st^e | ement> 

5- 1 <f or.statement> 

5-11 For Statements 

7-14 FQREACH Statement 

3-1 <f orma I „param..dec l> 

3- 1 <f orma I. parameter,. I ! st> 

3* 1 <f ormal.type> 

3-38 Formal Parameters 

6-12 Fortran Procedures 

15-11 Fortran Procedures 

3-41 Forward Procedure Declarations 

8- 1 <f unot I on„des I gnator> 
8-42 Function Designators 

11-12 Getchan 

11-78 Getformat 

5- 1 <oo - to - statement> 

5- 8 Go To Statements 

11- 6 I/O ROUTINES 

3- 1 <ld_! Ist> 
10-7 Identifiers 

5- 1 < I f ^.statement> 

5-5 If ,,, Else Statement 

5- 4 If Statement 

16 IMPLEMENTATION INFORMATION 

11-41 Input 

1 INTRODUCTION 

4- 1 < I tem.ass |gnment> 

4- 1 < I tem_ass |gnment> 

9- 1 < I tem^pr lmary> 
9- 4 Item Constructs 
3-18 Item Dec larat Ions 
9- 5 Item Selectors 
3-19 Items 

9- 1 < I temvar.var lab le> 

3-22 Itemvar Declarations 

5- 1 <labeljdenttf ler> 

8- 1 <|eap_re!at jona|> 

9- 1 Oeap^relat jonal> 
7- 1 < leao_statement> 
3- 1 <leap.type> 

9- 9 LEAP Boo leans 

7- 2 LEAP Introduction 

7 LEAP STATEMENTS 

8-45 Length 

11-71 Length 

11-113 LJBERATION-FROM-SAIL ROUTINES 

11-47 Llnout 

13- 1 < I 1st ing_name> 
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8-48 Lnot 

14- 1 LOADING AND STARTING SAIL PROGRAMS 
11-18 Lookup* Enter 

7* 1 < I oop„statement> 

8-46 Lop 

3-1 < I owerlbound> 

12- 6 Macro Parameters 

15- 2 Main Program 
7-11 MAKE 

11-58 Mtape 

8- 1 <mu|t operator> 

9- 6 NEW Items 

5- 1 <next_statement> 
5-25 Next. Statement 

3-13 Numeric Declarations 

11- 6 Open 

11-46 Out 

3-50 Parametric Procedures 

8-14 Precedence of Algebraic Operators 

3- 1 <pre I oad.e I ement> 

3-1 <pre|oad_|lst> 

3- 1 <pre I oad_spec I f loat lon> 

3-32 Preload Specifications 

8-39 Primaries 

8-1 <pr I mary> 

3- 1 <procedure^body> 

3- 1 <procedure_declaratlon> 

3- 1 <procedure_head> 

6- 1 <procedure_statement> 
16-49 Procedure Calling Sequences 

3-37 Procedure Declarations 

16-46 PROCEDURE IMPLEMENTATION 

6 PROCEDURE STATEMENTS 

6-10 Procedures as Actual Parameters 

2- 1 <program> 

14 PROGRAM OPERATION 

15 PROGRAM STRUCTURE 

2 PROGRAMS, BLOCKS, STATEMENTS 

13- 1 <proJ_prog> 

7- 9 PUT and REMOVE 
11-62 Real In, Intjn 
11-67 Realscan, Intscan 

3-43 Recursive Procedures 

8- 1 <re lat I ona (^express I on> 
8- 1 <re lat tona l_opermtor> 
8-20 Relational Expressions 

11-14 Re lease 

3- 1 <re If I le_spec> 
11-22 Rename 



SAILON NO, 57 SAIL 18-7 

3- 1 Oequl re_e I ement> 

3-» i Crequl re_ I I st> 

3- i <requl rement> 

3-55 Requl rements 

9- 1 <retr leva |_ I tem^pr lm> 

5- 1 <return_statement> 

5-19 Return Statement 

13-12 Rpg Mode 

10-11 Sail Predeclared Identifiers 

10-10 Sail Reserved Words 

11*44 Scan 

3- 8 Scope of declarations 
9- 1 <se |ector> 

15- 7 Separate ly Comp 1 I ed Procedures 

4- 1 <set_ass lgnment> 
9- 1 . <tet_express lon> 

7- 1 <set - ,statement> 
9- 1 <set„var lab | e> 
9- l <set..var lab |e> 

9 SET AND ASSOCIATIVE EXPRESSIONS 

3-24 Set Declarations 

9- 2 Set Expressions 

9- 3 Set Pr imar les 

11-36 Setbreak 

11-75 Setf ormat 

8- 1 <slmp I e. express I on> 
8-9 Simple Expressions 

3- 1 <slmp ler_f ormal^type> 

13- 1 <slashed„sw| tch J lst> 

13- 1 Csource, I lst> 

3-1 <tpacalspec> 

14* 2 Space Allocation* Normal Operation 

2- 1 <statement> 

2-6 Statements 

11-38 Stdbrk 

13*22 STORAGE ALLOCATION 

16* 5 Storage A I location Routines 

16* i STORAGE LAYOUT 

8*27 String-Arithmetic Conversions 

8- 1 <str jng.expressl on> 

16*31 Str I ng-Or tented Machine Language Routines 

8* 1 <str Ing.var lab I e> 

10*16 Str Ing Constants 

3-15 String Declarations 

16-14 String Descriptors 

16-30 String Garbage Collection 

11-71 STRING MANIPULATION ROUTINES 

16-19 String Operations 

16-27 String Space 
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16-14 STRINGS 

10- 1 <subscr lot.* I I S t> 

8- 1 <substf I nQ.SDtO 

8-41 Substrings 

4- 1 <swao.st»tem«nt> 

4- 8 Swap Assignment 
13- 1 <swl tch_spec> 

13- 1 <swl tches* 
13-13 Switches 

14- 9 Symbols 

11-69 Teletype I/O Functions 

8-1 <term> 

8-32 Terms 

8-10 The Boo I ean Express I on A no ma I y 

15- 1 THE SAIL CORE IMAGE (REQUIRED) 
3-1 <type> 

3- 1 <type_dec I a rat lon> 

3- 1 <type aua I I f ler> 

11-75 TYPE CONVERSION ROUTINES 

3-11 Type Declarations 

8-50. Unary Minus 

13- 1 <unsl ashed^swl ten.. I I st> 

3- 1 <upper„bound> 

12 USE OF DEFINE 

16- 1 User Table 
11-117 Usererr 
11-60 Usetl , Ussto 

12- 5 Using Macros 

13- 1 <val Idlswltch name> 
10- 1 <var lable> 

10- 2 Var lab les 

5- 1 <wh| le^statement> 
5-16 While Statement 

11-49 Wordln 

11-54 Wordout 
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